Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как узнать ParentFont? [D5]


Ega23 ©   (2006-01-12 13:50:00) 

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


Ega23   (2006-01-12 14:38:00) [1]


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


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


begin...end   (2006-01-12 14:06:00) [2]

> 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:00:00) [3]

Да, контрол.

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


begin...end   (2006-01-12 13:54:00) [4]

> Ega23 ©   (12.01.06 13:50)

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

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо