버튼을 클릭했을 경우 폼위에 있는 모든 컨트롤들이 모두 일정하게 좌측으로 조금씩 이동하는 프로그램을 작성하고 있습니다. 근데 폼마다 컨트롤들이 일정하게 있는 것이 아니라서 하나 하나 이름을 써가면서
ex
edit1.Left := edit1.Left + 10;
edit2.Left := edit2.Left + 10;
btn1.Left := btn1.Left + 10;
btn2.Left := btn2.Left + 10;
btn3.Left := btn3.Left + 10;
btn4.Left := btn4.Left + 10;
label1.Left := label1.Left + 10;
label2.Left := label2.Left + 10;
이런식으로 작성하니까 너무 힘이 들어서 그럽니다.
혹시 폼위에 있는 컨트롤들을 일괄적으로 읽어 들여서 for문으로 한방에 돌리는 방법같은 것이 없는지 궁금해서 질문을 올립니다.
(panel은 사용하지 않습니다.)
var
i : Integer;
begin
for i := 0 to ControlCount - 1 do
Controls[i].Left := Controls[i].Left + 10;
end;
응용해서 사용하세요...