| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как можно
Transnet. © (2002-06-13 04:51:00)Очень надо!!!!
мне надо как бы сэмулировать клик мышкой
HELP!!! PLIZ!!!!!!!!!!
Song (2002-06-14 08:42:00) [1]WM_LBUTTONDOWN
VID (2002-06-14 00:28:00) [2]А если так:
Мне не известно окно, над которым находится указатель мышки, я просто хочу эмулировать левый клик (так если бы, я с закрытыми глазами, просто взял и кликнул бы). Что надо делать в таком случае ?
Sava (2002-06-13 08:53:00) [3]Если надо эмулировать клик мышкой в своей программе, то можно сделать следующим способом:
...
private
procedure wmmousemove(var message: TMessage);
message wm_mousemove;
...
implementation
...
procedure Tform1.wmmousemove(var message: TMessage);
begin
case message.WParam of
mk_control: form1.button1.perform(BM_click,0,0);
// клик по кнопке при нажатие CTRL
mk_shift: form1.button2.perform(BM_click,0,0);
// клик по кнопке при нажатие SHIFT
end;
end;
...
Если в чужой то необходимо использовать PostMessage или SendMessage.
Song (2002-06-13 08:15:00) [4]Mouse_event()
| |
