Как узнать 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 ...

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