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

{Вероятно, вы захотите заменить "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;

[001617]

Содержание раздела