Установка значения в RT

← →
Pavelius © (2004-04-02 08:13) [0]

Ищу у компонента свойство Font.

propinfo:=GetPropInfo(AComponent, "font");
if propinfo<>nil then

А вот как дальше получить доступ к свойствам класса этого свойства ? К примеру, я хочу поменять размер шрифта.

← →
MBo © (2004-04-02 08:21) [1]

В простейшем случае:
procedure TForm1.Button1Click(Sender: TObject);
var
PropInfo:PPropInfo;
fnt:TFont;
begin
propinfo:=GetPropInfo(Label1, "Font");
if propinfo<>nil then begin
Fnt:=TFont(GetObjectProp(Label1,"Font"));
Fnt.Size:=24;
SetObjectProp(Label1,"Font",Fnt);
end;
end;

А вообще изучай typinfo.pas

Спасибо за помощь.

Установка значения в RT Найти похожие ветки