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

Как узнать ParentFont?   Найти похожие ветки 

← →
Ega23 ©   (2006-01-12 13:50) [0]

Есть некий собственный компонент.
Как узнать Font его Parent"а?
Хотя-бы в ран-тайме.

---

← →
begin...end ©   (2006-01-12 13:54) [1]

> Ega23 ©   (12.01.06 13:50)

> Есть некий собственный компонент.

Контрол, в смысле? Ну тогда Control.Parent.Font. Или я неправильно понял вопрос?

---

← →
Ega23 ©   (2006-01-12 14:00) [2]

Да, контрол.

Проблема в том, что Parent: TWinControl. А у вин-контрола нет свойства Font.
Явно-же прикастовывать к какой-нибудь фоме (TForm(Self.Parent).Font) - некошерно, сам понимаешь. Вдруг там не форма?

---

← →
begin...end ©   (2006-01-12 14:06) [3]

> Ega23 ©   (12.01.06 14:00) [2]

Да, я забыл, что у TControl свойство Font неопубликовано (но оно есть). У TWinControl это свойство тоже есть -- его просто не может не быть, т.к. TWinControl -- потомок TControl. Проблема только с получением доступа к свойству, но её можно решить:

type
 THackControl = class(TControl);

THackControl(MyControl.Parent).Font ...

---

← →
Ega23 ©   (2006-01-12 14:38) [4]

> begin...end ©   (12.01.06 14:06) [3]


О! Пасибо!
Что-то забыл, что можно так сделать...

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.024 c