Координаты Курсора Delphi

В Delphi существует несколько способов получения координат курсора на форме. Самым простым методом является использование свойств MouseX и MouseY объекта Form. Например, следующий код выводит координаты курсора мыши в заголовок формы:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  Caption := Format('X: %d, Y: %d', [X, Y]);end;

Кроме того, можно использовать события OnMouseMove или OnMouseUp, чтобы получать координаты курсора только при определенных условиях. Например, следующий код выведет координаты курсора только при нажатии левой кнопки мыши:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  if ssLeft in Shift then    Caption := Format('X: %d, Y: %d', [X, Y]);end;

Если необходимо получить координаты курсора относительно другого компонента на форме, можно использовать метод ScreenToClient. Например, следующий код выводит координаты курсора относительно панели Panel1:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);begin  Caption := Format('X: %d, Y: %d', [X, Y]);  Caption := Caption + #13#10;  Caption := Caption + Format('Panel1 X: %d, Y: %d',    [Panel1.ScreenToClient(Mouse.CursorPos).X, Panel1.ScreenToClient(Mouse.CursorPos).Y]);end;

Также можно получить глобальные координаты курсора, используя свойства CursorPos или GetCursorPos. Например, следующий код выводит глобальные координаты курсора:

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer);var  P: TPoint;begin  GetCursorPos(P);  Caption := Format('X: %d, Y: %d', [P.X, P.Y]);end;