用TWebBrowser写浏览器，遇到带有“关闭当前页”链接的网页，点击它就会出现错误，而且只能结束该进程！怎么解决？

Question

1.在form create的时候要
Application.OnMessage := ApplicationMessage;
2.声明一个procedure
procedure ApplicationMessage(var Msg: TMsg; var Handled: Boolean);procedure tfrmhtmlbrowser.ApplicationMessage(var Msg: TMsg; var Handled: Boolean);
var
  wb: tembeddedwb;
begin
  WB := GetVisibleWebBrowser;//就是取当前webbrowser啦
  if (Msg.message = WM_CLOSE) and (Msg.hwnd = Wb.Handle) then //如果是当前                                                            //webbrowser关闭的话
  begin                                     
    closebtnclick(Self);
  end
  else
    inherited;
end; //end applicaitonmessage 

Answer 1

在新版本（5.0以上）的IE带的webbrowser控件有WindowClosing事件（VB中），但是在Delphi中没有看到，可能是SHDocVw版本比较老了，你重新引入一下看看。