::KANSoftWare :: ОС и Железо :: Мышка и Курсор :: Как программно двигать курсор мышки?

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

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

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;

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

Добавить сайт в закладки

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

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

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

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

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