Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Клик крысой на экране [D5, D7, Win95/98, WinXP]


maxistent ©   (2004-10-08 11:06:00) 

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


ЮрийК   (2004-10-10 17:38:00) [1]

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

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


maxistent   (2004-10-10 16:43:00) [2]

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


panov   (2004-10-09 19:52:00) [3]

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


maxistent   (2004-10-09 18:12:00) [4]

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


Семен Сорокин   (2004-10-08 17:37:00) [5]


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

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


maxistent   (2004-10-08 16:44:00) [6]

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


pavel_guzhanov   (2004-10-08 11:28:00) [7]

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

end;


Наверх

Титульная страница Поиск, карта сайта Написать письмо