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

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 и FreePascal.

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

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

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

17.04.2024 01:18:39/0.034013032913208/0