Thema: Delphi OnClick abfangen

Einzelnen Beitrag anzeigen

uwewo

Registriert seit: 14. Jul 2004
Ort: Karlsruhe
479 Beiträge
 
Delphi 2006 Professional
 
#11

Re: OnClick abfangen

  Alt 13. Apr 2007, 13:04
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;

//------------------------------------------------------------------------------
Uwe
  Mit Zitat antworten Zitat