高手请进：关于Twebbrowser构件关闭的Event

feiyun 2000-09-12 10:17:00

各位高手，
我用Twebbrowser构件作了一个简易的浏览器，在浏览有
onclick="window.close()"语句的网页的时候用户可以
在网页上直接关闭Twebbrowser构件，构件应该没有自动
释放的，visiable也是True,但是屏幕上就是不见Twebbrowser。
这是什么回事？
同时我找不到Twebbrowser构件关闭的event,请高手指教。

...全文

100 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

feiyun 2000-09-14

打赏
举报

回复

cjf:
我试过，onquit事件没有触发的

cjf 2000-09-12

打赏
举报

回复

有OnQuit事件啊。

delphi动态 WebBrowser 释放问题.txt 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.3yeah.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;

delphi twebbrowser小例子。

delphi动态 WebBrowser 释放问题 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.3yeah.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;

delphi 中使用TWebBrowser控件.WEB版编程一定会用到的控件。

直接向Delphi中的TWebBrowser组件中写入HTML代码，显示之。TWebBrowser通常是用ref方式链接到一个地址或打开文件的，本代码给出的方法更直接方便

5,388

社区成员

262,730

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章