Cursorposition

[Alexander]

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
begin
  Showmessage('x: '+IntToStr(x)+'y: '+IntTostr(y));
end;

so zum Beispiel