TWebBrowser - Error al cerrar la página mediante un botón
 

Hola a todos.
Tengo un pequeño programa de prueba hecho en Delphi 5 con un TWebBrowser que me muestra una pequeña página web consistente en un formulario.

El código en cuestión es el siguiente:
----------------------------------------------------

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   WebBrowser1.Navigate('http://direccion');
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
WebBrowser1.OleObject.document.body.style.overflowX := 'hidden';
WebBrowser1.OleObject.document.body.style.overflowY := 'hidden';

WebBrowser1.OleObject.document.body.style.borderstyle := 'none';
end;

----------------------------------------------------

El problema es que en dicho formulario hay un botón cerrar que cierra automáticamente la ventana del navegador. Si le doy a dicho botón me salta el siguiente error:

----------------------------------------------------
Project ... raised exception class OleError with Message 'Could not contain OLE control window handle'
----------------------------------------------------

He intentado meter la llamada al programa dentro de un bloque try
-----

Código Delphi [-]
Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  try
     Application.Run;
  except
  end;

-----
para ver si asi al menos podia parar la excepcion y despues cerrar el programa, pero me sigue dando el mismo error.

¿Alguna solución?

Hola pepsi, bienvenido al foro antetodo.

Te recomiendo que leas la guia de estilo y por favor haz uso de las etiquetas para envolver el código Delphi.

Respecto a tú problema, no creo que poner directamente en el Project Source un bloque try except, eso sería mejor que lo hicieras dentro del OnClick que cierra el form donde te da el error. Tambien podrías hacer un debug en ese evento e ir paso a paso y ver en la linea en que te da el problema.

Espero te sirva.

Saludos

Ya está solucionado. Error de novato ;)


Si te digo la verdad, el bloque try en el project fue una prueba desesperada para ver si ahí se podía interceptar el error, pero ni así :confused:

El problema es que en mi form sólo tengo el TWebBrowser. El botón que cierra la página pertenece a la propia página HTML, así que creo que no puedo acceder a ningún OnClick ni depurar, que es lo que me está trayendo de cabeza.

Saludos a tod@s