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