Hint-Geschehen

[City Light]

Delphi-Quellcode:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  CursorPos: TPoint;
begin
  GetCursorPos(CursorPos);
  hint := Format('%d, %d', [CursorPos.X, CursorPos.Y]);
end;

Gruß Tino