[razumsap]

Добрый день. Пытаюсь заполнить веб-форму у котрой есть ListBox. Его значение я могу заполнить, но мне еще надо симитировать его выбор мышкой, чтоб после среагировал ява-скрипт.

Код:

var 
  Doc: OleVariant;
v,el   : OleVariant;
...
begin
  Doc := WebBrowser1.OleObject.document;
  el := doc.getElementById('fld_category_id');
  el.getElementsByTagName('option').item(4).selected := 'true';
  el.FireEvent('onchange', v);
end;

Код написал, но скрипт не запускается, видать не отрабатывает событие "onchange". Помогите советом, как сделать?

[Alegun]

Сообщение от 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)

Хотя наверное есть в природе правильный способ, но я такого не знаю.

[razumsap]

жаль, но не то что надо

[NumLock]

выложи минимальный проект: html-ку со списком и скриптом, программку с загрузкой этой странички. попробую поразбираться.

[NumLock]

проще некуда:

Код:

var
  doc: IHTMLDocument3;
begin
  doc:=WebBrowser1.Document as IHTMLDocument3;
  (doc.getElementById('select_id') as IHTMLSelectElement).selectedIndex:=UpDown1.Position;
  (doc.getElementById('select_id') as IHTMLElement).click;
end;

http://zalil.ru/34428576