В VCL было OnEnter, а в KOL как?

← →
GuAV (2004-04-17 12:56) [0]

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

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

← →
Gandalf © (2004-04-17 13:05) [1]

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

← →
GuAV (2004-04-17 20:35) [2]

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

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

В VCL было OnEnter, а в KOL как? Найти похожие ветки