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?