webbrowser evento onchange
 

Buenas tardes.

En un programa que estoy desarrollando, necesito seleccionar de forma manual el valor de un select dentro de un TWebbrowser.

Mediante SelectedIndex y javascript, consigo modificar su valor, pero no hay forma de que dispare el evento onchange de ese objeto select.

En versiones antiguas (7) de Internet Explorer, esto funcionaba:

Código Delphi [-]
var
  doc : IHTMLDocument3;
  el  : IHTMLElement;
  v   : OleVariant;

if EmbeddedWB1.Document.QueryInterface(IHTMLDocument3,doc) = S_OK then
begin
   el := doc.getElementById('ddl_nFilas');
   el.FireEvent('onchange', v);
end;

Pero con la versión 9, en adelante, no me funciona...

¿Alguien ha podido solucionarlo?

Gracias.

Hola frangarrob.

Por favor, en la próxima consulta que incluyas código usa las etiquetas de este modo:


Saludos y gracias por tu colaboración :)

A ver, prueba así:

Código Delphi [-]
var
  doc: IHTMLDocument3;
  el: IHTMLElement;
  evento: OleVariant;

begin
  el := doc.getElementById('ddl_nFilas');
  evento = doc.createEvent('Event');
  evento.initEvent('change', true, true);
  el.dispatchEvent(evento);
end;

LineComment Saludos

Ok, voy a probar y te digo cómo me ha ido.

Muchas gracias por compartir tus conocimientos.

Un saludo.

No me reconoce dispatchEvent

Código Delphi [-]
el.dispatchEvent(evento);

Estoy utilizando el componete EmbeddedWB, que tiene una unidad llamada EwbEventsComp.pas

Igual con esto se puede hacer algo... porque he visto que aparece dispatchEvent dentro del código...