超级菜 Twebbrowser 问题！

[任老先生]

Form 里放一个 Twebbrowser 浏览的网页上有一个window.close()的脚本，为什么Twebbrowser关闭后Form窗体不关闭 并且还有错误 我该怎么做

[yyjzsl]

路过，顶下

[深宇]

在onquit事件里处理一下试试

[postren]

关注一下

OnQuit事件是无效的

[lw820602]

在onchange事件里面检测：
如果webbrowser1关闭了，把窗口关闭。
不知道行不？

[ccrun.com]

C++Builder中的CppWebBrowser有个OnWindowClosing的方法，可以在Broser被关闭的时候处理一些事情。Delphi中的WebBrowser居然没有这个方法。汗。。。

[王集鹄]

我在TurboDelphi看到了这个OnWindowClosing
Delphi6里还没有。。。

[王集鹄]

刚才试了一下OnWindowClosing，不实用
用户一点按钮就触发，还没确定
用户可能会取消
可以通过截获窗体的WM_DESTROY消息实现

代码如下：
var
vDefInetExplorerServerProc: Pointer;

function InetExplorerServerWndProc(
hwnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall;
begin
Result := CallWindowProc(vDefInetExplorerServerProc,
hwnd, Msg, wParam, lParam);
case Msg of
WM_DESTROY:
begin
SetWindowLong(hwnd, GWL_WNDPROC, Integer(vDefInetExplorerServerProc));
ShowMessage('Window Close');
end;
end;
end;

procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
var
vShellDocObjViewHandle: THandle;
vInetExplorerServerHandle: THandle;
begin
vShellDocObjViewHandle := GetWindow(TWebBrowser(Sender).Handle, GW_CHILD);
vInetExplorerServerHandle := GetWindow(vShellDocObjViewHandle, GW_CHILD);
if Integer(@InetExplorerServerWndProc) <>
GetWindowLong(vInetExplorerServerHandle, GWL_WNDPROC) then
begin
Integer(vDefInetExplorerServerProc) :=
GetWindowLong(vInetExplorerServerHandle, GWL_WNDPROC);
SetWindowLong(vInetExplorerServerHandle, GWL_WNDPROC,
Integer(@InetExplorerServerWndProc));
end;
end;

[蒋晟]

http://support.microsoft.com/kb/253219

[ccrun.com]

[MVP]推荐的微软帮助里的文章真搞笑。到底是机器，翻译的和机器一样生硬。