Как определить координаты курсора мыши?

Delphi , ОС и Железо , Мышка и Курсор

Способ 1

Для этого можно воспользоваться API функцией GetCursorPos. Передав в эту функцию TPoint, мы получим текущие координаты курсора. Следующий код показывает, как получить значения координат курсора по нажатию кнопки.

Code:

procedure Form1.Button1Click(Sender: TObject);

var

        foo:  TPoint;

        begin

        GetCursorPos(foo)

        ShowMessage( '(' + IntToStr(foo.X) + ' ,' + IntToStr( foo.Y ) + ')' );

        end;

Взято из http://forum.sources.ru

Способ 2

Обрабатывай событие OnMouseMove. Координаты курсора можно получить следующим путем:

Code:

procedure TForm1.FormMouseMove(Sender:  TObject; Shift: TShiftState; X, Y: Integer);

        begin

         if (X >= 40 or X <= 234) and (Y >= 60 or Y <=258) then {здесь запуск твоей функции};

        end;

Автор: Pegas

Способ 3

Code:

mouse.CursorPos.x

        mouse.CursorPos.y

Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Взято с Vingrad.ru http://forum.vingrad.ru

Статья описывает три способа определения координат курсора мыши в приложении на языке программирования Delphi: методом GetCursorPos, обработкой события OnMouseMove и использованием свойства CursorPos класса mouse.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Мышка и Курсор ::

Время компиляции файла: 2024-12-22 17:14:06
2025-11-02 08:59:47/0.0096449851989746/0