| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TControl [D5]
Gayrus © (2003-01-05 17:44:00)Имеется TControl, вся проблема в том, что я не знаю его класс(TPanel, TLabel, TImage), не хотелось бы делать проверку на класс для каждого случая, но надо получить Font этого Control"a. Это возможно?
Юрий Зотов (2003-01-07 11:05:00) [1]> Gayrus © (06.01.03 15:38)
Странно. А в хелпе есть. И в коде есть. Как же так?
Вы про секцию protected и про объектную модель Delphi ничего не слышали, часом?
Mikhail V (2003-01-06 18:57:00) [2]>ION T © (06.01.03 18:50)
Да
ION T (2003-01-06 18:50:00) [3]> Mikhail V (06.01.03 18:35)
Дык не надо, хватит и "дружественного" класса...
Mikhail V (2003-01-06 18:35:00) [4]
class TFntControl = class(TControl)
public
property Font;
end;
...
TFntControl(YourCntrl).Font...
ION T (2003-01-06 18:10:00) [5]> У TControl нет Font.
есть фонт, только приватный
MXA (2003-01-06 17:37:00) [6]ну еще можно так:
(GetObjectProp(YourControl, "Font") as TFont).
хотя лучше TFriendControl(AControl).Font
Gayrus (2003-01-06 15:38:00) [7]>> Anatoly Podgoretsky
У TControl нет Font.
Anatoly Podgoretsky (2003-01-05 17:52:00) [8]И не надо делать, это свойство самого TControl иглубоко плевать какой наследник, прямо работатй с TControl
Юрий Зотов (2003-01-05 17:50:00) [9]Легко.
type
TFriendControl = class(TControl);
И приводим класс:
TFriendControl(AControl).Font
| |
