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...

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

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

> Gayrus © (06.01.03 15:38)

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

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

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