![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
В 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.