
08.04.2013, 19:13
|
 |
LMD-DML
|
|
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
|
|
Цитата:
Сообщение от razumsap
...надо симитировать его выбор мышкой, чтоб после среагировал ява-скрипт...
|
Можно так, хоть и стрёмно, но всё же
Код:
SetCursorPos(x, y); // Установка позиции курсора x и y
// клик по левой кнопке мышки (ЛКМ)
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
// клик по правой кнопке мышки (ПКМ)
mouse_event(MOUSEEVENTF_RIGHTDOWN,0, 0, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, 0, 0, 0, 0);
// двойной щелчок по ЛКМ
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
GetDoubleClickTime;
mouse_event(MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0);
mouse_event(MOUSEEVENTF_LEFTUP, 0, 0, 0, 0);
Требуется установить курсор над нужным контролом и эмульнуть клик по нему.
Ещё можно послать сообщение, но для этого у адресата должен быть Handle, иначе послание не дойдёт
Код:
// двойной щелчок по ЛКМ
SendMessage(Handle, WM_LBUTTONDBLCLK, 10, 10)
Хотя наверное есть в природе правильный способ, но я такого не знаю.
|