Mouse-Koordinaten ... die 20154. :-(

[t.roller]

Auch wenn die Form nicht den Focus hat, funktioniert es:

Delphi-Quellcode:

procedure TForm1.Timer1Timer(Sender: TObject);
var MausPos: TPoint;
begin
  if getAsyncKeystate(VK_LBUTTON)<>0 then  
  BEGIN
     GetCursorPos(MausPos);
     label1.Caption := IntToStr(MausPos.x);
     label2.Caption := IntToStr(MausPos.y);
  END;
end;