Mausposition bzw. Bezugspunkt

[-tobi-]

Ich hoffe mein Code hilft dir!

Delphi-Quellcode:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  LabeledEdit1.Text:=inttostr(X);
  LabeledEdit2.Text:=inttostr(y);
end;

Gruß Tobi