Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Win Api / Некоторые компоненты не меняют курсор мыши до тех пор пока пользователь не сдвинет мышь. Как эмулировать движение мыши?

Некоторые компоненты не меняют курсор мыши до тех пор пока пользователь не сдвинет мышь. Как эмулировать движение мыши?

В примере мышка слегка "подталкивается" без участия пользователя.

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;

Источник: Дельфи. Вокруг да около.

Copyright ©   "Мастера DELPHI"   E-mail:   delphi@mastak.com  http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru