Ja Columbo, bin noch da.
Leg zwei Labels aufs Formular und schreibe folgendes ins OnMouseMove von Form1.
Delphi-Quellcode:
procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Label1.Caption := IntToStr(X);
Label2.Caption := IntToStr(Y);
end;
Grüsse, Daniel
