TWebBrowser saber cuando se cargo la pagina

[mazinger]

El siguiente código te permite saber cuando se termina de cargar totalment un página:

Código Delphi [-]
procedure TForm1.NavegadorDocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin

  if (pDisp = CurDispatch) then
  begin
    CurDispatch := nil; {clear the global variable }
  end;

end;


procedure TForm1.NavegadorNavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
  if CurDispatch = nil then
    CurDispatch := pDisp;
end;

[ivan022481]

Roman: lo implemente, pero se disparo varias veces y eso era lo que quiero evitar, por ahora implemente esa "solucion" obvio que no es la adecuada, sigo buscando la manera correcta, gracias por el interes.

[mazinger]

Sigue buscando si quieres, pero la respuesta la tienes más arriba.
O bien no he entendido lo que necesitas...

[roman]

Y más arriba todavía ya que es el mismo código que viene en la ayuda de Delphi y que le indiqué desde un principio. Así que posiblemente la ayuda esté equivocada y no funcione la técnica. Veré si más tarde puedo probarlo.

// Saludos

[mazinger]

Si que funciona, de hecho la utilizo en mi programa.