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

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

В VCL было OnEnter, а в KOL как? [Delphi, Windows]


GuAV ©   (2004-04-17 12:56:00) 

Если в VCL есть TPanel (или TGroupBox, TFrame...) c контролами на ней, то когда один из них получает focus, TPanel генерирует событие OnEnter.
В KOL нет никакого события на этот случай и PPanel не получает никаких сообщений.

Вопрос: как создать Panel с событием OnEnter, которое вызывалось бы, когда вставленый в нее Control получал focus?


GuAV   (2004-04-17 20:35:00) [1]

Так не получилось, т. к. часть контролов вставлены через Frame и в разные панели. А в uses unit содержащий форму с панелью не пропишешь. Но решение найдено. Каждому контролу OnEnter:


procedure TMyFrame.TreeView1Enter(Sender: PObj);
begin
 with PControl(Sender)^ do Parent.OnEnter(Parent);
end;


Gandalf   (2004-04-17 13:05:00) [2]

Что первое пришло на ум. В OnEnter контролов вызывай какой тебе надо метод и считай что это PanelOnEnter.


Наверх

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