Focuswechsel

[bernau]

Weis nicht, wie ich die Überschrift benennen soll. Fange einfach mal an:

Habe zwei TEdit und eine TListbox

Wenn einer der Edits den Focus hat, dann soll die Listbox angezeigt werden. Ansonsten soll die Listbox nicht sichtbar sein. Wenn die Listbox sichtbar ist, dann soll aus der Listbox soll ein Eintrag mit einem Klick herausgewählt werden können.

Die Listbox anzeigen/ausblenden kann ich in dem Event OnEnter/OnExit der TEdits. Dazu verwende ich das Property "visible".

Problem ist nur, wenn ich auf einen Eintrag in der Listbox klicke, dann verlieren natürlich die Edits den Focus. Damit ist die Listbox mit visible:=false; weggeschaltet und der OnClick der Listbox wird nicht mehr durchgeführt.

Wenn ich im OnExit der Edits wüsste, daß das nächste focusierst Element die listbox ist, dann könnte ich visible:=false; überspringen.

Gibt es eine Funktion, mit der ich herausfinden kann, welches Control als nächstes den Focus bekommt.