说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

ActiveForm在IE中不停的重画?请问为什么?

编辑:说三道四文库 发布时间:2017-07-25 04:51
HTML文档下载 WORD文档下载 PDF文档下载
你好!我写了一个activeform,上面放了几个panel,什么操作也没有,为什么只是稍微拖动ie,
form的重画就非常严重,activeform的画面都变形了!我想自己处理OnPaint,
但ActiveForm的OnPaint的事件并没有被触发?
请教各位该如何解决呢?我觉得重画操作不应该有我作,而是系统自己会处理。
这是delphi的一个bug

将Delphi5安装目录下Borland\Delphi5\Source\Vcl\axctrls.pas文件考出,放在一个临时目录中。

用Delphi新建一个工程,保存在该临时目录中,在此工程中加入axctrls.pas(用Project菜单下的Add to Project...), 在Component List中,打开TActiveXControl下的Protected节点,双击SetObjectRects,则看到下面的代码

function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
  const rcClipRect: TRect): HResult;
var
  WinRect: TRect;
begin
  try
    IntersectRect(WinRect, rcPosRect, rcClipRect);
    FWinControl.BoundsRect := rcPosRect;
    Result := S_OK;
  except
    Result := HandleException;
  end;
end;

将FWinControl.BoundsRect := WinRect; 中的 WinRect 换成 rcPosRect, 然后运行工程编译,将axctrls.dcu 文件考到Borland\Delphi5\lib及Borland\Delphi5\lib\Debug下,将原有文件覆盖即可.
楼上的大侠很牛啊!呵呵,虽然还没有试验,但是佩服啊!
其实上面的代码就是 Delphi 3/4 版本的 axctrls.pas 中的。所以用 Delphi 3/4 开发 ActiveXForm 是没有问题的。但是 Delphi 5 的 axctrls.pas 做了改动,反而出现了问题。所以只要照着 Delphi 3/4 版本的 axctrls.pas 改动一下这个位置就可以了。
这是delphi的一个bug

将Delphi5安装目录下Borland\Delphi5\Source\Vcl\axctrls.pas文件考出,放在一个临时目录中。

用Delphi新建一个工程,保存在该临时目录中,在此工程中加入axctrls.pas(用Project菜单下的Add to Project...), 在Component List中,打开TActiveXControl下的Protected节点,双击SetObjectRects,则看到下面的代码

function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
  const rcClipRect: TRect): HResult;
var
  WinRect: TRect;
begin
  try
    IntersectRect(WinRect, rcPosRect, rcClipRect);
    FWinControl.BoundsRect := rcPosRect;
    Result := S_OK;
  except
    Result := HandleException;
  end;
end;

将FWinControl.BoundsRect := WinRect; 中的 WinRect 换成 rcPosRect, 然后运行工程编译,将axctrls.dcu 文件考到Borland\Delphi5\lib及Borland\Delphi5\lib\Debug下,将原有文件覆盖即可. 
我其初也有问题,现在解决了(按上面说的改一下就OK)
请问怎样调试ACTIVEFORM,应不是发布完再调试吧?
微软的无奈:或允许Android应用运行于Windows平台 如何选择适合自己的编程语言 Google Now新增语音命令:生活简单一点,让爱更近一点 千万美金收购案:GetJar是一家怎样的公司 传苹果与时代华纳等公司合作,推新一代Apple TV 追本溯源 解析“大数据生态环境”发展现状 为Hadoop存储层增加对OpenStack Swift的支持 详解并行逻辑回归 在AWS上使用GPU实现分布式神经网络 大数据时代,看“小数据”如何支持决策 22人15天研发 微信红包系统发起“珍珠港偷袭”的背后 开发产品防脱节,DevOps来帮忙 手游福音:官方中文版Unity用户手册免费发布 支持多平台!2D和3D游戏引擎Godot宣布开源 从Google备份互联网看“数据安全” NBA全明星周末,数据打造下的辉煌盛事 2014情人节没活动?我们来帮你! Windows 8授权销售已超过2亿份 速度不及Win 7 IDC:2013年第四季度Windows Phone出货量大幅增长 深入思考SDN的核心本质:从SDN=OpenFlow回到软件定义网络 谷歌、VMware在Chromebooks上双赢了,微软你怎么看? Tizen真要来了!又有15家IT大佬成帮会成员 研发周报:开源世界应该致谢的五家公司 Square、LinkedIn、Google... 看国外巨头如何“绑架”用户? 一周消息树:5.5寸屏幕的iPhone 6概念机来袭、索契冬奥会开幕式现Bug 一周热点:美国大学生数学建模分析,Hadoop不是万能,探访雅虎数据中心 Google Play services 4.2全球推送,完全支持Chromecast! 移动周报:最快的Web开发IDE——HBuilder Google Glass是空有噱头还是实用品? 服务好“最后一公里”,高效CDN架构经验 “义军”突起,帮用户夺回大数据控制权 知道了这些信息会不会对服务器造成威胁? 可不可以telnet 212.xxx.xx.xx [1433]察看SQL SERVER端口 下面的这段代码为什么不执行呢? ado的连接问题 如何使系统在退出时自动清除最近打开的文档? 各位老大请进. 在asp.net中用datagird控件做的"删除"功能,生成html页面后,删除是一个链接,我想在单击这个链连时,出现一个确认框, 各位老大请进. 各位老大请进. 如何给下拉列表框中某一选项的值赋null?另,如何判断用户没有对列表框进行选择? 为什么我在sql*plus在system表空间建了个scott.sale表后在oem看不见呀!! 如何给下拉列表框中某一选项的值赋null?另,如何判断用户没有对列表框进行选择? 各位老大请进. 超级菜鸟 datagrid的触发事件问题 为什么选择服务器游标后,datagrid 不能用了? 数据库oracle9.2,用oledb连接数据库时出现“未在本地计算机上注册“OraOLEDB.Oracle.1”提供程序。”怎样解决? 直接通过ADO如何远程访问计算机上的SQL Server数据库 如何升级jbuilder7的jdk? 发布基于TXMLDocument的程序需要打包哪些文件? 小白鲨只是提议版主不要随意性执法 彩色图像的亮度和对比度? HTML Help Workshop 话中国电影的英文译名(英语爱好者请进,更新中) 小弟做的第一个网页,知道来这个论坛的都是高手,请大家多批评! 如何从CObject中派生一个类? 初学请求大家帮助希望早结贴早睡觉(两贴共120分)。 菜鸟问题:应该先学开发平台还是先学开发语言? service是否也有消息队列? 不知道这样的情况,SQL语句该如何写!谢谢了! HTML Help Workshop 安装什么样的版本? iis无缘无故死掉??? c#.net ! Delphi程序员现在的工资怎么样啊? 如何取得Button的Text属性值? 歪脚鸭病了 一个想了很久的问题,C/C++为什么把声明与实现放在不同的文件里(*.h,*.cpp),感觉没有一点好处。 郁闷,散分! 关于scjp的一个很菜的问题 请问为什么我的两千上网后不能关机? 哈!又升级了!(版主要手下留情,我是真心感谢大家) 现在再看《人月神话》有价值吗? 有关生成可执行文件的问题 水源里的兄弟们进来说说,到底怎样才能渡自己早日成星呀? 请教:怎样在一个应用程序中提取经运算的 多行文本行 有关new操作的问题 我要学c#.net,该从那开始??难吗??谢谢指教啊~~~~~ 两个小问题 请教:怎样在一个应用程序中提取经运算的 多行文本行 如何读取一个目录下所有目录? 袁姗姗甜美写真曝光 花丛美人娇艳性感范冰冰代言诸多国际大牌:中国人早晚要俞灏明渴望谈恋爱:想有一个可以交流的46岁苏永康中年发福 出车祸撞烂女友谢霆锋陪母狄波拉赴新加坡散心 两子未47岁朱丽倩高龄求子 刘德华建2亿城梁朝伟笑对张曼玉调侃 冷言称与其没有林志颖娇妻大起底 主动追求爱情手段堪陈豪承认将迎娶陈茵媺 巧妙避答奉子成周慧敏否认为爱猫推千万工作 澄清内地小宋佳叛逆街头形象出街 潮爆吸睛走路张歆艺新加坡庆生 获“玛丽莲·梦露”方脸村姑变麻豆 韩国整容惊人对比堪比元彬现身帅气不再 身形消瘦满目愁容惹杨幂机场素颜判若两人 全程戴口罩无人少女时代徐贤猛烈回头露囧相忙遮掩《杀戒》首映 倪妮被刘烨亲昵紧搂钻戒芭莎艺术之晚宴在港举行 刘嘉玲鲁豫等韩国人眼中的的中国美女素颜浓妆皆女神!唐嫣赵丽颖PK少女时超模邦辰油润登封面 比基尼咸湿秀热辣贵州推出超万亿“政金企”合作项目成都高品质物业价值重构 城市清幽之地江苏旷达2014年净利1.7亿 光伏广东召开第二季度防范重特大生产安全事宁西二线郑州局管段NX9标牵引变电工一季度四川居民消费价格总水平上涨1.一季度四川工业生产者价格同比下降3.罗德曼与色情影星过54岁生日 AV三牡丹江销毁一批侵华日军遗留武器山西千名城市医师结对帮扶乡村医生杭州限牌新政征求意见:驾照成门槛清出青海高中和中职学生助学金标准提至生均李学军:电影《巴彦岱》接地气 很有意直属单位国有资产管理工作规程(暂行)猫咪上楼还是下楼?烧脑图片引发网友争原标题:高劲松接受调查 昆明三任市委外交部发言人评奥巴马涉南海“块头和肌全国人大与日本国会众议院合作委员会举外交部谈南海问题:望美方尊重中国和东《中国区域旅游发展年度报告》发布 北周仲明当选承德市人民政府市长
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘