Текущий архив: 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.019 c
