델파이공부중입니다.
여러 프로그램에서 사용하겠지만 예를 들면 델파이폼에서 오른쪽클릭하면 텝오더 창이 뜨는데
사용한 콤포넌트 리스트가 나오고 오른쪽에 위, 아래 버튼이 있는데 클릭하면 리스트에서
선택한 콤포넌트가 위, 아래로 한칸씩 이동합니다.
저도 어런 기능을 사용하고 싶은데 방법을 잘 모르겠습니다.
간단하게 라도 도움 부탁드립니다.
안녕하세요..
궁극적으로 필요한 기능이 탭오더를 설정할수 있는 UI 를 만드시는 것인가요?
예제를 작성해보면.. 우선 해당폼위에 모든 컴포넌트중 TabOrder 프라퍼티를 포함하는 컨트롤 들을
리스트 박스같은 곳에 뿌리고...
var
I : Integer;
PropInfo : PPropInfo;
begin
for I := 0 to Form4.ComponentCount - 1 do
begin
PropInfo := GetpropInfo(Components[I].ClassInfo, 'TabOrder');
if PropInfo <> nil then
begin
ShowMessage(Components[i].Name);
ListBox1.Items.Add(Components[i].Name);
end;
end;
end;
궁극적으로 필요한 기능이 탭오더를 설정할수 있는 UI 를 만드시는 것인가요?
예제를 작성해보면.. 우선 해당폼위에 모든 컴포넌트중 TabOrder 프라퍼티를 포함하는 컨트롤 들을
리스트 박스같은 곳에 뿌리고...
var
I : Integer;
PropInfo : PPropInfo;
begin
for I := 0 to Form4.ComponentCount - 1 do
begin
PropInfo := GetpropInfo(Components[I].ClassInfo, 'TabOrder');
if PropInfo <> nil then
begin
ShowMessage(Components[i].Name);
ListBox1.Items.Add(Components[i].Name);
end;
end;
end;
순서를 바꿀때 아래 함수를 이용해서 TabOrder 를 조정하시면 되겠네요..
SetOrdProp(컴포넌트,PropInfo, 탭오더);
이해되셨나요?.. 즐거운 프로그래밍 하세요..