БОЛЬШОЙ FAQ ПО DELPHI



Проверка на существование свойства


 {Вероятно, вы захотите заменить "is TButton.."
 на что-то другое, что вы определили в родителе..
 напишите просто if Components[i] in myset ...
 в моем примере я перебираю около 40 объектов,
 чтобы найти свойство TFont и изменить его свойство
 TPitch ... может быть существует путь легче?}
 
 procedure TForm1.FormCreate(Sender: TObject);
 var
   i: Integer;
 begin
   for i := 0 to ComponentCount -1 do
     if Components[i] is TButton then
       TButton(Components[I]).Font.Pitch :=fpFixed ;
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Видеокурс ВЗЛОМ