Статьи по Делфи
Меню сайта


Категории каталога
Мои статьи [2]
Функции и процедуры Win Api [20]
Работа с мышью [10]
Реестр и Делфи [11]
Работа с файлами [38]
Делфи и Хакер [10]
Инсталлятор собственными руками [6]
Хитрости в делфи [3]
Работа с системой [19]


Форма входа


Поиск по каталогу


Друзья сайта


Наш опрос
Понравились ли вам треки
Всего ответов: 156


Приветствую Вас, Гость · RSS 2020-09-19, 9:08 PM
Начало » Статьи » Работа с мышью

Как просимулировать нажатие кнопок мыши
На форму вынесите компонент TTimer и опишите его единственное событие следующим образом:

procedure TForm1.Timer1Timer(Sender: TObject);

var

x, y: Integer;

begin

x := random(Screen.Width);

y := random(Screen.Height);

sendmessage(Handle, WM_LBUTTONDOWN, MK_LBUTTON, x + y shl 16);

sendmessage(Handle, WM_LBUTTONUP, MK_LBUTTON, x + y shl 16);

end;

Для того, чтобы убедиться, что сообщения на самом деле посылаются, обработайте событие OnMouseDown для формы.

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

Form1.Canvas.Ellipse(x - 2, y - 2, x + 2, y + 2);

end;

Категория: Работа с мышью | Добавил: Admin (2006-12-17) | Автор: delphi
Просмотров: 1901 | Рейтинг: 0.0 |

Всего комментариев: 0
Имя *:
Email *:
Код *: