Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.01.16;
Скачать: CL | DM;

Вниз

TControl   Найти похожие ветки 

 
Gayrus ©   (2003-01-05 17:44) [0]

Имеется TControl, вся проблема в том, что я не знаю его класс(TPanel, TLabel, TImage), не хотелось бы делать проверку на класс для каждого случая, но надо получить Font этого Control"a. Это возможно?


 
Юрий Зотов ©   (2003-01-05 17:50) [1]

Легко.

type
TFriendControl = class(TControl);

И приводим класс:
TFriendControl(AControl).Font


 
Anatoly Podgoretsky ©   (2003-01-05 17:52) [2]

И не надо делать, это свойство самого TControl иглубоко плевать какой наследник, прямо работатй с TControl


 
Gayrus ©   (2003-01-06 15:38) [3]

>> Anatoly Podgoretsky
У TControl нет Font.


 
MXA   (2003-01-06 17:37) [4]

ну еще можно так:
(GetObjectProp(YourControl, "Font") as TFont).

хотя лучше TFriendControl(AControl).Font


 
ION T ©   (2003-01-06 18:10) [5]

> У TControl нет Font.
есть фонт, только приватный


 
Mikhail V   (2003-01-06 18:35) [6]


class TFntControl = class(TControl)
public
property Font;
end;
...
TFntControl(YourCntrl).Font...


 
ION T ©   (2003-01-06 18:50) [7]

> Mikhail V (06.01.03 18:35)
Дык не надо, хватит и "дружественного" класса...


 
Mikhail V   (2003-01-06 18:57) [8]

>ION T © (06.01.03 18:50)
Да


 
Юрий Зотов ©   (2003-01-07 11:05) [9]

> Gayrus © (06.01.03 15:38)

Странно. А в хелпе есть. И в коде есть. Как же так?

Вы про секцию protected и про объектную модель Delphi ничего не слышали, часом?




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

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

Наверх




Память: 0.48 MB
Время: 0.023 c
4-49374
Z_man7777
2002-11-28 13:36
2003.01.16
TCP/IP адрес


3-48890
Essense
2002-12-20 12:47
2003.01.16
ModifySQL


6-49175
SergeySA
2002-11-15 14:04
2003.01.16
Как запретить доступ к одному IP или группе IP


14-49272
Bboy
2002-12-27 10:04
2003.01.16
Как в Ворде разместить таблицу????


1-49129
SinnerPro
2003-01-05 12:28
2003.01.16
Помогите расшифровать дату