delphi动态 WebBrowser 释放问题.txt

delphi动态WebBrowser释放问题.txtvarweb:TwebBrowser;procedureTForm1.Button1Click(Sender:TObject);beginweb:=TWebBrowser.Create(Self);web.ParentWindow:=Self.Handle;web.SetBounds(100,100,100,100);web.OnDocumentComplete:=WebBrowser1DocumentComplete;web.Navigate('http://www.3yeah.com/');end;procedureTFo