Статистика | Зарегистрировано на сайте: Всего: 51647
Онлайн всего: 40 Гостей: 40 Пользователей: 0
|
|
Каталог статей
Как программно двигать курсор мышки.
Следующий пример показывает, как "подтолкнуть мышку" без вмешательства пользователя.
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;
|
|
Просмотров: 626
| Рейтинг: 1.0/
5
Оштрафовать
| Жаловаться на материал |
|
|