請教: 如何在run time 時由程式取得Form上所有元件, 並改變元件的屬性(size, top,left)

您好﹗

procedure TForm1.Button1Click(Sender: TObject);
Var
I: Integer;
begin
For I:=0 to Form1.ControlCount-1 do
begin
Form1.Controls[I].Top := 值;
Form1.Controls[I].Left := 值;
end;

------
忻晟

再請教:如果這個Controls[i] 是 TEdit 的話,要怎樣控制它的Font.size

Var
i :integer;
begin
For i:=1 to Form1.ComponentCount-1 do
Begin
If Form1.Components[i] is TEdit Then
Begin
(Form1.Components[i] as TEdit).Font.Size:=50;
(Form1.Components[i] as TEdit).Font.Color:=clRed;
End;
End;
end;

Var
i :integer;
begin
For i:=1 to Form1.ComponentCount-1 do
Begin
If Form1.Components[i] is TEdit Then
Begin
(Form1.Components[i] as TEdit).Font.Size:=50;
(Form1.Components[i] as TEdit).Font.Color:=clRed;
End;
End;
end;

收到! 不知道還有這用法, 感謝囉 !