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

[pepsi]

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:
----------------------------------------------------
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
-----
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?

[Bicho]

Hola pepsi, bienvenido al foro antetodo.

Te recomiendo que leas la guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php) 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

[pepsi]

Hola pepsi, bienvenido al foro antetodo.

Te recomiendo que leas la guia de estilo (http://www.clubdelphi.com/foros/guiaestilo.php) y por favor haz uso de las etiquetas para envolver el código Delphi.
Ya está solucionado. Error de novato ;)



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 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