Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Вниз

Как узнать 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 вся ветка

Форум: "Основная";
Текущий архив: 2006.02.12;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.044 c
8-1125923903
Гость_Гость
2005-09-05 16:38
2006.02.12
Как склеить avi и wav


2-1138044725
sergik
2006-01-23 22:32
2006.02.12
одномерные массивы


4-1133333765
BVV
2005-11-30 09:56
2006.02.12
Обращения к реестру и к файлам


15-1138103140
Ega23
2006-01-24 14:45
2006.02.12
Настройки Delphi - что за беда?


15-1137498839
saNat
2006-01-17 14:53
2006.02.12
Несколько вопросов к Мастерам





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский