Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.063 Beiträge
Delphi 12 Athens
|
Re: OnClick abfangen
13. Apr 2007, 12:14
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
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.
|