Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Object Pascal / Как поменять какое-нибудь значение у всех нужных компонентов формы (например, размер шрифта у всех TButton на форме).

Как поменять какое-нибудь значение у всех нужных компонентов формы (например, размер шрифта у всех TButton на форме).

Это можно сделать так:

procedure TForm1.FormCreate(Sender: TObject); {или любая другая процедура или функция, которая вам нужна}
var
  i: Integer;
begin
  for i := 0 to ComponentCount -1 do  {перебираются все компоненты формы}
     if Components[i] is TButton then  {проверяется, компонент типа TButton или нет}
       TButton(Components[I]).Font.Size :=15 ; {непосредственно присваивается нужное значение}
end;

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru