Скачать: CL | DM;

Клик крысой на экране   Найти похожие ветки 

← →
maxistent ©   (2004-10-08 11:06) [0]

Приветствую всех! Кто может помочь с решением вопроса? Нужно написать прогу, которая 1) может перевести курсор крысы в (X;Y) и 2) нажать в этой точке экрана левую/правую кнопку. С (1) проблем нет, а вот (2) - надо решить. А КАК ЭТО СДЕЛАТЬ?

---

← →
pavel_guzhanov   (2004-10-08 11:28) [1]

var
 Pos:TSmallPoint;
begin
 Pos := SmallPoint(15, 11);// координаты курсора
 // Нажали кнопку мыши
 SendMessage(TBHnd, WM_LBUTTONDOWN, 0, Integer(Pos));
 // Отпустили кнопку мыши
 SendMessage(TBHnd, WM_LBUTTONUP, 0, Integer(Pos));

end;

---

← →
maxistent ©   (2004-10-08 16:44) [2]

А что за <TBHnd>, если не секрет?

---

← →
Семен Сорокин ©   (2004-10-08 17:37) [3]

> maxistent ©   (08.10.04 16:44) [2]
> А что за <TBHnd>, если не секрет?

Это Handle получаемый использование например таких ф-ий:
WindowFromPoint,
ChildWindowFromPoint,
ControlAtPos (если твое приложение)

---

← →
maxistent ©   (2004-10-09 18:12) [4]

Типа, пасиба и всё такое...

---

← →
panov ©   (2004-10-09 19:52) [5]

>maxistent ©   (08.10.04 11:06)
В следующий раз ветка с подобным заголовком будет удалена.

---

← →
maxistent ©   (2004-10-10 16:43) [6]

Ну, пардоньте, пардоньте...

---

← →
ЮрийК ©   (2004-10-10 17:38) [7]

Полагаю, что лучше почитать описание функции mouse_event:

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c