Jak pobrać współrzędne myszy

Służy do tego funkcja GetCursorPos.

Możemy umieścić na formie dwa komponenty Label (zakładka Standard) oraz jeden komponent Timer (zakładka System).

Właściwość Interval zmieniamy np. na 10 a w zdarzeniu OnTimer dajemy taki oto kod:

procedure TForm1.Timer1Timer(Sender: TObject);
var
  P : TPoint;
begin
  GetCursorPos(P);
  label1.Caption:=IntToStr(P.X);
  label2.Caption:=IntToStr(P.Y);
end;

Zobacz też:

• Typ TPoint