Thema: Delphi OnClick abfangen

Einzelnen Beitrag anzeigen

uwewo

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

Re: OnClick abfangen

  Alt 13. Apr 2007, 12:28
Zitat von himitsu:
dann eher so:
Delphi-Quellcode:
procedure TForm1.ListBox1MouseMove...;
begin
  if ActiveControl <> ListBox1 then
    LastFocus := ActiveControl;
end;
denn bis ListBox1MouseUp aufgerufen wurde, hatte sich vorher mal die Maus über der ListBox befunden/bewegt und LastFocus wäre demnach ListBox1
Bin mir jetzt auch nicht sicher, aber wenn MouseMove Eintritt, hat in diesem Moment doch ein anderes Steuerelement den Focus. Dieses wird in LastFocus gespeichert un nach MouseUp wieder übergeben.

Ok, vielleicht ist ja auch falsch.
Uwe
  Mit Zitat antworten Zitat