|
|
Проверка на существование свойства
| |
|
{Вероятно, вы захотите заменить "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; | |
| Категория: Pascal | Добавил: DelphiAiX (09.05.2012)
|
| Просмотров: 505
| Рейтинг: 0.0/0 |
Добавлять комментарии могут только зарегистрированные пользователи. [ Регистрация | Вход ] |
|
