分享点EmbeddedWB控件的经验
时间:2011-08-14
来源:互联网
我在使用EmbeddedWB 14.67.8 和14.70.0版本的时候,浏览控件嵌入到MDI主窗口中时,再另外打开另一个mdi子窗口,关闭的时候总是报一个“no mdi form”的错误,我改了下源代码
在过程constructor TEmbeddedWB.Create(Owner: TComponent)末尾加入
if (Owner is TForm) and (TForm(Owner).FormStyle = fsMDIChild) then
Owner.Tag:= 999; //fix no mdi form error
以标识所在窗口内嵌EmbeddedWB控件
在过程function TAppHookWindow.MessageHook(var Msg: TMessage): Boolean修改
bContinue := IsChild(GetActiveWindow, ActiveForm.Handle)为
if Screen.ActiveForm.Tag=999 then //fix no mdi form error
bContinue := IsChild(GetActiveWindow, ActiveForm.Handle)
只有子窗口中内嵌EmbeddedWB控件时,才执行判断语句
在过程constructor TEmbeddedWB.Create(Owner: TComponent)末尾加入
if (Owner is TForm) and (TForm(Owner).FormStyle = fsMDIChild) then
Owner.Tag:= 999; //fix no mdi form error
以标识所在窗口内嵌EmbeddedWB控件
在过程function TAppHookWindow.MessageHook(var Msg: TMessage): Boolean修改
bContinue := IsChild(GetActiveWindow, ActiveForm.Handle)为
if Screen.ActiveForm.Tag=999 then //fix no mdi form error
bContinue := IsChild(GetActiveWindow, ActiveForm.Handle)
只有子窗口中内嵌EmbeddedWB控件时,才执行判断语句
作者: likewu 发布时间: 2011-08-14
感谢分享。
作者: m617105 发布时间: 2011-08-14
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28