Zitat von
Quake:
Aber wenn ich auf die ListBox klicke, ist das erste was passiert, sie bekommt den Focus und damit wird OnExit meines letzten Steuerelemenmts ausgelöst.
Stimmt, funktioniert leider nicht, nur wenn Du die Maus beim Klick nicht bewegst,das ist allerdings fast unmöglich.
Das hier funktioniert allerdings doch, Dank himitsu
Delphi-Quellcode:
var
Form1: TForm1;
LastFocus : TWinControl;
implementation
{$R *.DFM}
//------------------------------------------------------------------------------
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if ActiveControl <> ListBox1 then
LastFocus := Form1.ActiveControl;
end;
//------------------------------------------------------------------------------
procedure TForm1.ListBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Form1.ActiveControl := LastFocus;
end;
//------------------------------------------------------------------------------