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

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

编辑:说三道四文库 发布时间:2017-02-21 09:06
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,应不是发布完再调试吧?
Swift语言那些鲜为人知的特性 《开源者说》08期:聊聊Java那些事儿 专访唐成:从小工到专家,PostgreSQL的修炼之道 《瞬间之美》作者Robert Hoekman Jr:如何成长为UX领袖人物? TIOBE 2015年6月编程语言排行榜:Swift份额上升,Objective-C成自由落体 【CTO讲堂】Box首位华人核心工程师的回国创业之路 【探秘ES6】系列专栏:ES6简介 专访《Javascript设计模式与开发实践》作者曾探:爱编程 爱生活 【探秘ES6】系列专栏:迭代器和for-of循环 【CTO讲堂】UCloud联合创始人兼CTO莫显峰:如何成长为技术合伙人? 【探秘ES6】系列专栏:生成器 iKair转型传感器及SaaS厂商,发布Maxense平台与9款“云传感器” 免费jQuery幻灯片图片轮播插件Galleriffic的使用方法 专访IBM中国研究院院长沈晓卫博士:全新的物联网来了 《近匠》GYENNO CEO任康:用“勺子”敲开一片新市场 Horde3D——基于C++编写的3D渲染引擎 Maker Faire 2015在深圳正式开幕,关注创客生态系统 Arduino与Seeed Studio达成战略合作——专访Arduino联合创始人Massimo Banzi 免费开源的Bootstrap富文本编辑器bootstrap-wysiwyg使用方法 CCAI2015:首届中国人工智能大会将于7月26-27日在京举行 拥抱互联网+ 用友NC6助力集团企业蜕变数据驱动型公司 《近匠》融云,自主研发真正“不丢消息”的IM云服务 【CTO讲堂】听云CTO Wood:APM实现原理及对IT和产品运营的价值 从7个维度浅析虚拟现实Alpha年 Maker Faire上的微软:将技术与工具带给Maker才是关键 友盟2015年Q1移动互联网报告:车联网App崛起 多面编程语言Scala NEC高可用集群软件EXPRESSCLUSTER X3.3面向中国市场正式发布 【探秘ES6】系列专栏:模版字符串 专访图书作者祁宇:C++11让程序更简洁、更现代、更强大 滴滴打车CTO张博:生死战役,技术和时间赛跑 怎么样在程序里注册OCX控件件? 奇怪,为什么我的电脑在死机后重起就不能浏览我写的asp页面了 各位,我現在到這一步了,下一步要做什麼 怎样把一个 Frame 窗体放进一个Penal 中??? 我编了4年程序,可是我在这里的提问没有一个人的回答让我满意!!!! 搞张jbuilder6破解? 特殊字符串查找 请问Win2k pro的Inetinfo.exe进程怎么占用CPU达99%呀?怎么解决呢? 自由自在的人,你在吗? 后缀是nlc的电子图书那里找? 请问vc里缺省参数的函数是怎么定义的?(70分) 救救我!!!数据库管理的几个基础问题?? 急需控件 请教一个关于CListCtrl的问题??? c语言实现"智力游戏" --? Redhat下设置环境变量 我的帐号被盗了啦!!!!!!! select max(count(*)) from table group by aa这个意思的语句该怎么样写? 在SQL SERVER7.0中如何实现类似于ORACLE中的CONNECT BY实现的树型查询? 这里都是些菜尿,吗的没有一次我的提问有人给我解决的! 为什么我的问题没人响应???????? 隐藏FORM的API,谁能提供? 谁知道 jdbc-odbc数据库连接是否要装jdbc程序 哪位大峡知道MetaTools公司的Photo Soap下载网址??? 数据库打开问题? 为什么会出现 Capability not suported???? 请教高手们一个在天极网没人能回答的问题,认真做答者有分 jsp的中文问题求救 何為數據流? 为什么在保存Word文档时总是提示Word内存不足,不能保存? 谁有开发支付网关的经历,请介绍一下经验,或提供些资料给我参考,谢啦。 求救!关于怎样提交表单???? 怎样写入txt文件里 alphagx送分了 求教: delphi中 JPG图片怎样存入数据库中的BLOB字段?怎么进行VCD文件分割或存入BLOB字段? 有关ICMP重定向报文的疑问!!! 在C++Builder中调用计算机内置扬声器,声音太轻了,怎样提高音量? 一个头痛的问题!大家指教! lujun,icevi……快来看看这个数据库怎么设计 请问怎么才能让DataSource.SaveToContainer不使用GUID作为邮件名称 怎么拒绝MM。 请教:为什么对话框的背景色没改变? 请问CDO中有什么方法可以不用邮件url而使用DAV:id来获得制定的邮件 FALSH问题?来者有分!(300) 一个关于头文件的问题. 简单问题001 有人在windows下写过数控程序吗? 有关sqlserver2000数据倒入问题 我是个新手,请大家多帮忙!有个问题请教:如何传递数组参数?急!!多谢多谢 如何将float转化成CString? 我的C盘太小了,v7.0装不上,pqmagic不支持win2000!听说配置好VC6.0,其能运行C#?? 月光下的遐想 作文600字 求一篇作文题目是“成长,需要快乐”的作文,500字,不要太好的 那天,我捡到了快乐的钥匙 月光下的遐想 作文800字语言优美 要关于中秋的 要自己写的快 我成长,我快乐 450字作文 由悲伤转为快乐的作文题 目 月光下的遐想 不少于500字的作文 成长的快乐(400字) 关于“快乐的校园生活”的作文题目稍微新颖一点 有诗意一点还有4个小标题 分别是关于“军训”“野炊”“合唱”的 形式要一致一定要关于快乐的!说错了 是3个小标题 我与老师的故事作文500字 81个月球才和地球一样重,月球的质量是地球质量的几分之几? 我和书的故事 作文600字 求关于月球之谜:月亮是从哪来的?上面有什么东西?他跟地球一样吗?月球上的尘土有杀菌的本领吗?月球的请在清明节之前回答.谢啦~~~ 世界上的四大海洋是什么? 世界四大强国是指哪些国家?请主要说一下综合国力的排名. 世界上第四大长河是什么 81个你才和我一样重,月球的质量是地球的质量的几分之几. 世界面积第四大的国家是哪个?213 世界四大长河中径流量季节变化最小的是?(尼罗河、亚马孙河、长江、密西西比河)请问此四条河分别处于什么气候丫?尼罗河、长江、密西西比河为什么径流量季节变化大呢?. 世界上的四大海洋是哪四个 世界上面积第四大的的国家是哪个? 世界四大长河中(尼罗河、亚马孙河、长江、密西西比河)径流量季节变化最小的是 地球对月亮说81个你才和我一样重.月亮的质量是地球质量的几分之几? 中国是世界第四大旅游国,那么前三个国家是哪三个国家? 世界上四大长河是指哪四条? 四大海洋哪个海洋最大 世界四大寓言是什么?(些写出哪个国家的)! 要一篇关于成长的作文,要带评语的!大约500~600字 问一下世界四大长河的顺序及长度 81个月球的质量相当于一个地球的质量,月球的质量是地球质量的几分之几?小明用15分钟走了1千米,平均每分钟走几分之几千米? 600字关于温暖的作文带评语 跪求一篇300字的记事好作文饿- -拜托大家了 真的很急 必须是记事作文哦 今天晚上就要饿- - 世界四大海洋面积最小的是 月球的重力是地球的%60,有一个人那着一个东西在地球上重10斤,说月球上重多少斤? 求一篇记事作文,300字左右 四大奇迹海洋是哪几个?sj的宝蓝海洋东方神起的红色海洋还有呢? 文明礼仪作文~400~500字的!急RT 求!寒假叙事作文300字!啊!要够300字啊!各位求求了!谢谢各位! 快乐的春节500字 文明礼仪作文(公共场所里的)400字的 急需三篇450字作文内容任意,块! 快乐春节故事作文600字急 世界上的未解之谜最怪异的,最恐怖的. 冬天里的故事作文500字 家乡的春节500字 大千世界未解之谜哪儿有这样的电子书? 我家的教育故事作文500字, Good morninng,ladies and gentelmen.Now,there is a girl who has a dream to be an international politician wishes to share her dream and hobbies with you.My name is….,charlotte skywalker.You may recall the surname skywalker was in the movie_---stars 世界四大未解之谜 求世界四大姓! 太阳离地球近?还是月亮离地球近呢?脑筋急转弯! 世界四大未解之谜是指那四大 世界四大水果是哪几种? 太阳离地球近还是月球近 世界上还有哪些是未解之谜不是说地震这样抬杠的。要像百慕大呀,外星人那样。 世界四大特务组织 什么样的作文题目可以写一件快乐的事? 月光下的遐想 作文500字 成长中的快乐作文450字不许转载,嘻嘻…… 关于快乐的作文题目我的作文主要是写爱,通过爱来表达快乐.这样以快乐为话题是不是有些违背.顺便帮我加个好的题目
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn