Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.047 c