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

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

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

Следующий пример показывает, как "подтолкнуть мышку" без вмешательства пользователя.

Code:

procedure TForm1.Button1Click(Sender:  TObject);

        var

        pt :  TPoint;

        begin

           Application.ProcessMessages;

           Screen.Cursor := CrHourglass;

           GetCursorPos(pt);

           SetCursorPos(pt.x + 1, pt.y + 1);

           Application.ProcessMessages;

           SetCursorPos(pt.x - 1, pt.y - 1);

        end;

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

Статья Как программно двигать курсор мышки? раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal.

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

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

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

Время компиляции файла: 2024-04-24 22:55:34
2024-04-25 12:44:51/0.0065300464630127/2