Главная страница
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.024 c
4-49351
Сергей Макаров
2002-11-28 20:05
2003.01.16
Сис. ресурсы


14-49312
Roger
2002-12-27 16:54
2003.01.16
Как отмазыватся перед женой


7-49327
alexsandri
2002-11-05 12:36
2003.01.16
Мастера подскажите как в винде назначить свои


3-48936
Arick2k
2002-12-22 21:21
2003.01.16
Работа с UpdateSQL


7-49335
Qpwoe!
2002-10-21 07:56
2003.01.16
Как на Дelphi написать организовать передачу данных ...