OnClick abfangen

[uwewo]

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;

//------------------------------------------------------------------------------