Как получить координаты курсора в delphi?

1
2
3
4
5
6

var 
  P: TPoint
begin
  	GetCursorPos(P); //Получаем координаты 
  	ShowMessage('X = ' + P.X.ToString + '; Y = ' + P.Y.ToString); // выводим координаты
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12

uses
  Windows;

procedure TForm1.Button1Click(Sender: TObject);
var
  CursorPos: TPoint;
begin
  if GetCursorPos(CursorPos) then
    ShowMessage('X: ' + IntToStr(CursorPos.X) + ', Y: ' + IntToStr(CursorPos.Y))
  else
    ShowMessage('Не удалось получить координаты курсора.');
end;

1
2
3
4
5
6
7
8
9

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := 'X: ' + IntToStr(X) + ', Y: ' + IntToStr(Y);
end;

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  Label1.Caption := 'Курсор отпущен на X: ' + IntToStr(X) + ', Y: ' + IntToStr(Y);
end;