Delphi-Help

Главная Статьи Компоненты и классы Как установить значение свойства компонента по имени?
Понедельник, 14 Марта 2011 09:45

Как установить значение свойства компонента по имени?

Автор 
Оцените материал
(0 голосов)


Как установить значение свойства компонента по имени?

procedure TForm1.BtnClick(Sender: TObject);
var
  p: PPropInfo;
  f: TFont;
begin
  f := TFont.Create;
  {Setup the font properties}
  f.Name := 'Arial';
  p := GetPropInfo(Sender.ClassInfo, 'Font');
  if Assigned(p) then
    SetOrdProp(Sender, p, Integer(f));
  f.Free;
end;
Прочитано 3905 раз Последнее изменение Пятница, 22 Апреля 2011 23:08

Авторизация



Счетчики