Focuswechsel

[bernau]

Zitat von hans ditter:

Also, hab ich richtig verstanden, dass du die beiden Edits überprüfst indem du OnEnter bzw. OnExit auswertes? Dann kannst du doch irgendwie sowas machen: (ungetestet)

Delphi-Quellcode:

if MausUeberListbox = false then
   {dein Code}
else Exit;

Und bei OnMouseEnter der Listbox schreibst du dann sowas: (ungetestet)

MausUeberListbox:=true;

Im Grunde genommen gute Idee. Aber wenn ich zufällig mit der Maus über der Listbox bin und einen Der Editfelder per Tab-Taste verlasse, bleibt die Listbox sichtbar.

[DeddyH]

Diese beiden Methoden habe ich mal testhalber den 3 Controls zugewiesen:

Delphi-Quellcode:

procedure TFormTest.ListBox1Enter(Sender: TObject);
begin
  ListBox1.Visible := true;
end;

procedure TFormTest.ListBox1Exit(Sender: TObject);
begin
  ListBox1.Visible := (ActiveControl = Edit1) or (ActiveControl = Edit2) or (ActiveControl = ListBox1);
end;

Ist es das, was Du suchst?

[bernau]

Zitat von stahli:

Kannst Du nicht einfach prüfen: Edit.Visible := (Edit.Focused or ListBox.Focused);

Das war's.

Manchmal ist die Lösung sooooooo einfach.