Hallo!
Setzte die
OnMouseMove,
OnMouseDown oder
OnMouseUp procedure im Objektinspektor für das Formular.
Die x und y sind dann Deine Koordinaten.
Das sieht dann so aus:
Delphi-Quellcode:
procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
ShowMessage('x='+IntToStr(x)+', y='+IntToStr(y));
end;
Edit: Auch Dir ein herzliches Willkommen in der
DP 