Показать сообщение отдельно
  #2  
Старый 08.04.2013, 19:13
Аватар для Alegun
Alegun Alegun вне форума
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)
Хотя наверное есть в природе правильный способ, но я такого не знаю.
Ответить с цитированием