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

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

编辑:说三道四文库 发布时间:2017-04-24 09:53
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,应不是发布完再调试吧?
$.meta.setType(type, name)-JQuery API data()-JQuery API disableTab(position)-JQuery API enableTab(position)-JQuery API tabs(initial, settings)-JQuery API triggerTab(position)-JQuery API triggerTab(position)-JQuery API Tooltip(settings)-JQuery API PHP简介-PHP初学入门教程1 选择PHP的理由 -PHP初学入门教程2 从一个简单的程序来了解PHP -PHP初学入门教程3 PHP语法基础 -PHP初学入门教程4 建设一个简单的交互网站(一) -PHP初学入门教程5 建设一个简单交互的网站(二) -PHP初学入门教程6 建设一个简单交互的网站(三)密码验证 -PHP初学入门教程7 PHP文件上传 -PHP初学入门教程8 为站点添加投票功能 -PHP初学入门教程9 广告条轮播-PHP初学入门教程10 操作MySQL数据库实现简单的留言板-PHP初学入门教程11 使用PHP来操作Oracle数据库 -PHP初学入门教程12 技术杂项PHP教程结束篇 -PHP初学入门教程13 .NET中DataSet和DataReader的区别与转换 CGI技术及其开发(二)-Delphi资料 CGI技术及其开发(一)-Delphi资料 COM/DCOM中如何传递数组-Delphi资料 COM与DCOM的区别与联系-Delphi资料 Cookie的建立使用-Delphi资料 Delphi 3中Cookie的建立使用 Delphi 中 串 行 通 信 的 实 现 Delphi4.0 开发WEBMAIL程序 Delphi4的Winsocket编程 有关文件的读写问题。 大家讨论一下内存分配、释放的问题 关于在jsp中运用sqlserver的小问题!!! 怎么样可以将session的存活期限设置成“永远不死”?? 送分题,如何取得一个表的所有字段名? 那里可以下载Wrox系列书的英文版? 无法启动sqlserver的问题. DELPHI中dbgird的语句问题 关于控制动态产生Checkbox,并进行动态控问题 BCB中使用MSComm控件,无法定义动态数组变量,该怎么办?--急啊!在线等待 战神----巴蒂 两个问题! 用ADO访问DBASE数据库 百分求救:关于COM方法的reference参数不返回值的问题 请教各位高手 如何将程序中不同的查询结果写入报表? 怎样自编程序监控icmp包,应该截获什么消息,还是用别的方法? java本地化的问题(各位帮帮我!) 一个关于类型转换的菜鸟问题!! 招聘 Jpeg中FFd9可以有几个? ?????不同窗口中多个参数传递的问题,在线等待中........ 关于 EmbeddedWb 的Mshtml_tlb, SHDocVw_tlb 问题! 各位大虾 帮我翻译一下 急 悲... DBGrid为什么没有数据集记录失去焦点事件? 怎样手动和在程序中更改SEQUENCE的当前值? 怎么结贴子,什么叫FAQ? 关于“软件蓝领”的3个疑惑。 在函数中以引用方式调用结构的问题?给我能给的最高分100 怎样实现随机打印一个数据表的几个子段? 大家看看,这个功能如何实现? 怎样编一个程序读取服务器上的时间? VC工程不能正常打开? Jpeg中FFd9可以有几个? datawidgets简介!简单的问题---“送大伙一点小分” 新人到!!有问题想要问!!! 有谁知道sybase12.5中定义的所有保留字keywords? 为什么我的Tomcat突然找不到Serverlet了 关于报考程序员的问题 请问:一个应用程序发布时需要为每个发布的实例建立一个唯一标识用GUID好不好? 介绍些ActiveX/COM的好书吧! 图片的名字是中文就不能显示,怎么办 奇怪的问题关于NULL! 高分求助:pb中数据传输的问题 请教,在窗体改变大小时,有没有通用的办法,改变窗体内控件的大小,位置 如何用VB在CMOS中获取指定信息? ??低级问题,如何得到一个hdc(最好多几个方法) !!!!!!!!!急急急!!!!!!!!!!!!! 如何在頁面引用outlook的收件人地址控件,使得輸入的mail帳號會自動加上下划线,请给代码,并解释,非常感谢! 有名的ehlib控件,2.3版,功能多多,本人在其基础上又增加了很多属性,不能错过! 谁知道如果不慎将油汤洒到衣服上,可以用什么方法除去?并说明依据原理. make a switch有哪些意思?都是什么? 实际气体为什麽在高温低压下才接近理想气体?为什麽要比气体的沸点高很多,又要在低於0.1个大气压的情况下才接近理想气体?请问这压力是指哪里的压力? 一台单缸四冲和柴油机,每分钟转1800r,每一个工作循环燃气做的功为500J,如果汽缸的效率为30%,做这些功需要完全燃烧多少柴油?一台单缸四冲和柴油机,每分钟转1800r,每一个工作循环燃气做的功 楼梯间非采暖 不设置散热器 其热负荷如何计算 是否要计算温度要算作室外计算温度 还是另外的计算温度 求解 低压下的气体( ).选项:a、可以视为理想气体 b、 不能视为理想气体 c、 可以忽略分子间的相互作用 d、低压下的气体( ).选项:a、可以视为理想气体 b、 不能视为理想气体c、 可以忽略分 revolve door是什么啥意思 灯罩的作用是利用光的( )将光线尽量集中罩到需要照射的地方,因此灯罩内表面应尽量( ) 为什么高温低压的气体可近似看做理想气体低压可以理解,压强小,气体密度小,分子间距大故分子间作用力小,那高温呢?是为了增强热运动还是破坏分子间的相互作用了 谁知道牧童这首诗是谁写的 怎么自己做台灯灯罩? 楼梯间不采暖时候温度按多少算? 哪位能把牧童这首诗的意思写出来吕岩写的 1千克的液体物质吸收了2.1×1000的热量后,气温度有25°到35°.该物质的比热容是多少?这种物质是什么? 怎样测量光的频率和波长光的频率和波长是怎样测量出来的?什么仪器可以测量光的频率和波长? a 如果不慎将油汤洒到衣服上,可以用汽油除去的原理 LED日光灯的灯罩种类有哪些? 关于铝合金箱长城包装箱怎么样 不透明体的颜色由通过它的色光决定,不透明物体的颜色是由它反射的色光决定的?举个例子!就这样! 年最大负荷利用小时数计算公式 铝合金箱长城包装箱? 没财富了 但是希望高手和懂汽车电路的来小弟之前改了大灯 不是总成.Q5透镜远近光氙气灯 以及天使眼泪眼.之类的 后来感觉不妥就全部拆除了剩下氙气灯现在残留一些疑惑需要大家帮忙1、 日光灯为什么要装灯罩 理想气体的基本定律有哪些?其内容是什么? 奇特的电子生物第一段有什么作用? 在一定温度下,在一个密闭容器中加入H2和I2蒸气各0.5mol一个密闭容器中加入H2和I2蒸气各0.5摩,发生反应H2+I2 2HI,达到平衡时,生成HI 0.8摩,若其它条件不变,开始充入的H2为2摩,则达到平衡时生成的H 《牧童》表达了什么情感? 脂质具有生物学功能的是什么 LED蜡烛灯哪些有哪些最好想买一些LED的蜡烛灯,但是又对LED产品不了解. door是什么意思? 免疫系统具有哪些功能,正常或异常时有何生物学效应? LED蜡烛灯 台灯的灯光,透过灯罩开口射出后的状况 led台灯灯罩材料有哪些? LED节能玻璃灯罩 球泡 蜡烛泡 拉尾灯罩哪里可以买到?如题 LED节能玻璃灯罩 球泡 蜡烛泡 拉尾灯罩哪里买比较便宜? 双灯罩台灯灯内外层灯罩分别有什么作用 纸盖住水杯,为什么水不会流出?还有,大气压是什么? LED蜡烛灯在哪家比较好? door是什么意思 石头灯罩用led灯还是节能灯 牧童描写了怎样的场面 当扶手拖拉机上的柴油机出现故障而使转速急剧增加时,正常的操作已经不能使它停转,下列应急措施中,可行的是:A.捂住进气口B.立即找一个隔热的东西,捂住排气口C.脚踩刹车板,同时手拉制 台灯灯罩是金属的好吗?LED灯 45000平方米制冷面积,用蒸汽式溴化锂机组还是用离心式机组,蒸汽价格220元电价1元 一台单缸柴油机,飞轮每分钟往返转动3000转,那么柴油机每秒钟曲轴往复100次, 灯罩能否让LED灯的光平行射出?我现在需要一个灯罩可以将灯泡发的光最后与灯罩面垂直的方向平行射出,最后可以通过一个凸透镜将光线收集到一个点.不知道这样的灯罩有没有厂家能做?还有 双效溴化锂吸收式制冷机组为什么要用圆筒圆形筒有什么优点或缺点啊?为什么不用方形筒啊 学习或工作用的台灯上有一个灯罩其作用是利用光的什么定律将光线尽量集中照到需要照射的地方,因此灯罩内表面尽量什么? 如果不慎将油汤洒到衣服上,可以用什么方法除去?原理是什么? 白色物体能_各种颜色的光,无色物体能_各种颜色的光 《牧童》这首诗是什么意思? 关于光的波长和频率光入射水中时速度会改变,是频率还是波长改变了?波长有可能改变么? 上午化学课做实验,将无色液体和白色粉沫混合,产生大量无色气体,这两种物品是什么 牧童这首诗的意思是什么? That's a switch 别用词典上的“那是一个开关”,来忽悠我。不是表面上的意思 一个玻璃罩,罩住一长一短两根蜡烛,同时燃烧,那根先熄灭,为什么?我个人觉得是短的,但是做实验只做了一次,是长的先灭,为什么?如果是短的,为什么我们做出来的是长的?有没有什么误差? 如果不慎将油汤洒到衣服上可用什么方法除去说明依据的原理 switch (a) 和 switch(a==1)有什么区别以下选项中与if(a==1)a=b;else a++;语句功能不同的switch语句是A)switch(a){case1:a=b;break;default:a++;}B)switch(a==1){case0:a=b;break;case1:a++;}C)switch(a){defa 一长一短两支蜡烛在同一玻璃罩中燃烧,哪个先灭?
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘