скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

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




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






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook