delphi动态 WebBrowser 释放问题

Question

var
web:TwebBrowser;procedure TForm1.Button1Click(Sender: TObject);
begin
  web:=TWebBrowser.Create(Self);
  web.ParentWindow:=Self.Handle;
  web.SetBounds(100,100,100,100);
  web.OnDocumentComplete:=WebBrowser1DocumentComplete;
    web.Navigate('http://www.qq.com/');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
   // web.Destroy;
    web.Free ;
end;procedure TForm1.WebBrowser1DocumentComplete(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
 if(web.LocationURL='http://www.qq.com/')     then
    begin
  //    web.OnDocumentComplete:=nil;
      web.Free;
    end;
end;为什么在DocumentComplete事件中释放会出错,
而直接在Button2中点击却没提示错误?(无论网页是否加载完毕)
小弟不才 ,真心求教

Answer 1

OnDocumentComplete  是页面下载完毕执行的事件，你Free自身，会出错的。   

Answer 2

事件是从webbrowser内部触发的,执行完还要返回的,这时释放可能有问题.

Answer 3

建议将webbrowser放在TPageControl的Page中，释放Page，同时释放webbrowser。