VPF::Кликнуть мышкой - Форум программистов

BeeMaster

Дата 30.6.2008, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 3.4.2008

Репутация: нет
Всего: нет

Народ я весь инет облазил и нечего путнего не нашел! По этому пишу здесь. Есть код который кликак по координатом мышь в месте нахождения.

Код


procedure TForm1.Timer1Timer(Sender: TObject);
var
position: TPoint;
begin
GetCursorPos(position);
Memo1.lines.add(IntToStr(position.X)+' '+IntToStr(position.Y));
mouse_event(MOUSEEVENTF_LEFTDOWN, position.X, position.Y, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, position.X, position.Y, 0, 0);
end;

Но мне надо кликнуть по координатом 100 100
Помогите пожалуйста.

P.S. в поисковип плиз не посылать =)

Snowy

Дата 30.6.2008, 16:40 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 31
Всего: 484

Добавь вначале
SetCursorPos(100, 100);
или

Код


mouse_event(MOUSEEVENTF_LEFTDOWN, 100, 100, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 100, 100, 0, 0);

BeeMaster

Дата 30.6.2008, 19:59 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 117
Регистрация: 3.4.2008

Репутация: нет
Всего: нет

Огромное СПС

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »