各位,我又碰到一问题:在webbrowser中,如果当前页面有一个javascript的window.close()连接,
则点这个连接后出现OLE错误,那位大哥告诉我怎么处理这个问题?
则点这个连接后出现OLE错误,那位大哥告诉我怎么处理这个问题?
解决方案 »
- 请教怎样把nextgrid中的数据打印出来,小弟新人只有12分,顺便教下怎样给分吧。。。谢谢帮忙
- 直接用TWAIN.DLL控制扫描仪的程序
- 能否实现F7按住不放的效果?
- 看见很多单机应用程序使用类似web的界面,很清晰明朗,这种界面可否用DELPHI实现?怎么才能实现? (在线等)
- 用RAVE的制作报表
- 我想买Emage的源代码(图像处理软件),寻找合买者!
- 请问关于网页嵌在应用程序里提交时如何取得Form的值????
- 这样的SQL怎么写?
- 难题!!!关于WORD的一些问题?
- 大家怎么看程序员移民加拿大的问题?
- 请问:怎么样使焦点在表中(DBGRID)记录间移动时不提交
- 不知哪位高手会DELPHI的脚本问题!
在form create时
Application.OnMessage := ApplicationMessage;function tfrmhtmlbrowser.GetVisibleWebBrowser: TEmbeddedWb;
var
wb: Tembeddedwb;
tmp: TControl;
begin
tmp := pagecontrol.ActivePage.Controls[0];
wb := (tmp as Tembeddedwb);
Result := wb;
end; //End GetVisibleWebbrowserprocedure 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
begin
closebtnclick(Self);//关闭webbrowser后,把相应的ttabsheet删除
end
else
inherited;
end;
在form create时
Application.OnMessage := ApplicationMessage;function tfrmhtmlbrowser.GetVisibleWebBrowser: TEmbeddedWb;
var
wb: Tembeddedwb;
tmp: TControl;
begin
tmp := pagecontrol.ActivePage.Controls[0];
wb := (tmp as Tembeddedwb);
Result := wb;
end; //End GetVisibleWebbrowserprocedure 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
begin
closebtnclick(Self);//关闭webbrowser后,把相应的ttabsheet删除
end
else
inherited;
end;