Текущий архив: 2004.04.18;
Скачать: CL | DM;

Вниз

Установка значения в 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

---

← →
Pavelius ©   (2004-04-02 08:29) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.04.18;
Скачать: CL | DM;

Наверх

Память: 0.44 MB
Время: 0.051 c