تغییر فونت تعدادی EditText با یک دستور

[delphi_63102]

من تعدادی EditText در یک فرم دارم آیا راهی وجود دارد که بشود فونتها رو تغییر داد بصورتی ک نیاز نباشد به تک تک Editها اشاره شود.
با تشکر

[Touska]

آره از Controls[] استفاده کنید.

موفق باشید :flower:

[koosha system]

type
TControlHack = class (TControl);

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to ControlCount - 1 do
TControlHack(Controls [I]).Text :=
TControlHack (Controls [I]).Text + 'Koosha System';
end;