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

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

编辑:说三道四文库 发布时间:2017-09-24 02:11
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,应不是发布完再调试吧?
$.post(url, params, callback)-JQuery API ajaxComplete(callback)-JQuery API ajaxError(callback)-JQuery API ajaxSend(callback)-JQuery API ajaxStart(callback)-JQuery API ajaxStop(callback)-JQuery API ajaxSuccess(callback)-JQuery API load(url, params, callback)-JQuery API loadIfModified(url, params, callback)-JQuery API serialize()-JQuery API Accordion(settings)-JQuery API activate(index)-JQuery API button(hash)-JQuery API center()-JQuery API $.cookie(name)-JQuery API $.cookie(name, value, options)-JQuery API height()-JQuery API innerHeight()-JQuery API innerWidth()-JQuery API offset()-JQuery API outerHeight()-JQuery API outerWidth()-JQuery API scrollLeft()-JQuery API scrollTop()-JQuery API width()-JQuery API ajaxForm(object)-JQuery API ajaxSubmit(object)-JQuery API clearForm()-JQuery API clearInputs()-JQuery API fieldSerialize(true)-JQuery API fieldValue(successful)-JQuery API 请教高手 初学者的问题,,请大家帮忙解决 为什么我在表里插入一个记录,在表里出现了4个记录的?急!!!!!!!!!! 那位大侠能给我提供一些漂亮的java登陆界面代码? 请求高手作答,关于COMBOBOX问题.1000分都可以. 关于smtp服务器的配置问题 Windows2003下用户 'NT AUTHORITY\NETWORK SERVICE' 登录失败 关于ibm移动硬盘的问题 那位大侠能给我提供一些漂亮的java登陆界面代码? 在CView中如何得到CMainFrame的指针呢?狂送分 Webloic与SQL 25000 大元的防火墙现在有得下载罗。 为什么我的系统(XP)装RealOne Player用不了,而装R8好使。 ★★★非典流行语集锦★★★ 下载的控件应该放在delphi中的哪个文件夹中??? MSDN中VC+WORD例子之一! jsp中如何调用一个java程序? 在VC++中对SQL2000中List数据表的name列按拼音进行查询 继承问题 <%# Ctype(Container.DataItem,DataRowView).CreateChildView("showbbs") %>谁能解释一下? 请教。。。 SCO UNIX为什么安装那么慢? 设置tomcat4.1数据源的问题~~ 各位仁兄,有什么好的.net学习网站介绍介绍 J#下的g.drawstring格式? 用EXCEL怎么画图?急急急急急急急急急急急急急急急! 笑对非典 怎样从新更新的记录中取出数据! 请问如何把两个库中的数据和到一起? C语言下如何实现打印 AssignFile(fp,pTempEquip^.savepath);? 这句话是什么意思呢? MSDN中VC+WORD例子之二! 如何改写exec,大力看看 使用Excel进行打印的问题! 我实在没招了.大哥大姐,来帮忙呀 //我给90分 有哪些查公司口碑的网站,大家介绍一下。 关于播放视频 单步调试时的问题 "发现不明确的匹配"到底是什么错误? 能不能给一个button添加一个弹出菜单 急问各位大虾,在界面上怎么得到一块区域? zhongyj,大哥,你在吗?请进 努力ing 这个查询的SQL语句如何,ACCESS2000数据库,内详 关于多个文件网络传输的问题 急!!遇到很奇怪的问题<在线等候> 老小孩学JAVA,您别嫌烦,100分接着 *.pbl asp新手问题,有关session. 在<!---->中的ASP块中有语法错误为什么还会报错???注释不管用????? 怎么在vb中连接数据库? 我想请问这 clay adn plant face mask purifier是什么意思? 小学四年级252名学生去春游,可以怎样租车?大车:限载36人 小车:限载12人 求八年级科学题:220v 100w的灯泡和110v 100w、36v 100w正常发光时 哪个亮? 求翻译 Step1:Detoxitying Clay Mask 一块长方形地长200米,宽150米,共收玉米12吨,平均每公顷收玉米多少吨? 关于he left immediately这句话he left immediately中,he是主语left是谓语immediately是什么?修饰谓语的不是在谓语的前面吗?而且是副词? 如果是状语的话,是什么状语? 一本书的页码依次是1,2,3,4,5···一共204个数字组成.这本书有多少页? 在一块长420米,宽250米的长方形地里,共收玉米98.7吨,平均每公顷收玉米多少吨? He left immediately. We want to be teather when we grow up(改为一般疑问句) When I'm Alone的歌词没对了,中文的呢 大车一天的费用是300元,小车一天的费用是200元.我们怎样租车比较合算?租车费一天用去了多少?大车只能坐42人小车只能坐30人我们一共有252人 We want to be teacher when we grow up.(改为一般疑问句)怎样做? 如何租车,怎样租车 麻烦各位了.1.get down to sth ,look forward to ,object to ,pay attention to 等等后接sth、v-ing 时,to 为介词,那可不可以跟to do当状语?why?2.When asked how they were paying for their education,almost a third of the students said We want to beteachers when grow up. 将上面的句子改为一般疑问句. 在美国如何租车 show us how to read 的意思 我要当空姐全国演员选拔大赛怎么报名啊? 世界上有很多城市都有"怪坡"----上坡容易下坡难,这是什么原因呢?厦门有一条怪坡,上坡的时候人走在上面很轻松,反而下坡的时候很累, English,english,how to read我买了好多的中英对照的名著想有时间读来提高英语语感及提高整体水平,但我今一读就泄气了,感觉好难读懂噢,我该怎么办 ,要读出声吗 电 字开头的成语 急电 字开头的成语( 急要13~15个 电 字开头的成语) Is was very cold on Mars.改为一般疑问句 小明在帮助老奶奶家收拾卫生时,不小心把放在茶几上的一块三角形玻璃板打碎了小明准备去玻璃店买一块赔给老奶奶,小明看着玻璃碎片发愁了,原来他不知道这块玻璃板的大小和形状,小明看 Littie+可数名词是什么意思? 牡丹鹦鹉下的蛋如果是白色的是不是就没受精?怎么样避免它们下白蛋?而且牡丹鹦鹉关于繁殖下蛋的表现注意我家的不知道是不是一对儿怎么办?万一都是母的怎么办?它们的颜色差异很大吗? 跑出租车要什么条件? 杠杆撬重物,上升高度和力臂长度关系 怎样确认牡丹鹦鹉的蛋是否受精?我家的牡丹鹦鹉生了蛋,我很想知道蛋是否受精. 跑出租车很底三下四吗 画眉鸟为什么要悠笼子 爸爸存入银行2000元,定期3年,年利率是3.24%,利息税是5%.到期后:1、银行应付利息多少元?2、爸爸实际得到利息多少元?3、爸爸共可以取回多少钱?知道的朋友快点,对了明天加分. 我当时觉得奇怪,后来下车观察了半天,才恍然大悟:这是个怪坡呀”.如图1所示,人们明明看着是上坡,并且把车熄火挂上空档了,可是汽车还4.有关图4的说法中不正确的是()(认黔甲带是自动向“ 画眉鸟笼子一般价格?能用铁笼吗? Auto CAD2010 中我在画完图后才发现我把绘图单位弄错了,结果都比我要画的长度扩大了10倍Auto CAD2010 中我在画完图后才发现我把绘图单位弄错了,结果都比我要画的长度扩大了10倍,我想问问有没 手机充电宝直接接在手机电池上长话短说问题如上.我手机现在是坏了,想把手机充电接口那直接把线跨接到电池触点那,然后用充电宝,不过网上说神魔间歇性啥的,想问问 或者有没有神魔别的 Tom often helps his mom ____ housework on weekends.A.do B.does c.doing d.make 6、电动自行车轻便、实用、无污染,很受人们喜爱.右表是某种型号电动自行 手机电池中电芯的作用. 一只羊在吃草,一只狼从羊身旁经过,羊叫来有声,但没有吃羊.(打一海产品) i failed in the physics test ,you——harder before the testA could study B may study C had studied D should have studied He______ music when his mother cooked.( )A.enjoy B.enjoyed C.was enjoying D .was enjoyed 8、一只羊在吃草,一只狼从羊身旁经过,但没有吃羊.(打一海产品) 为什么会出现鱼集体死亡事件? 恐龙的产生 一只羊在吃草,一只狼从羊身旁经过,但没有吃羊.(打一海产品)A、虾 B、蟹 C、鱿鱼 神奇宝贝绿宝石三神柱事件怎样把化石鱼和深海巨鲸放在石板上 100W灯泡灯丝粗还是40W的灯丝粗不是说电阻越大亮度越亮么 如果电阻丝越粗不就造成电阻越小了么?根据什么公式呢? clay 又有匀加速又有匀减速的时候,在同一运动中,是不是匀变速呢?匀变速是不是只能匀加或是匀减? 一个25W和一个100W的灯泡,看灯泡灯丝的粗线怎样辨别它们? When we are at table,time passes away while we are eating.怎么翻译 没读书英语怎么说 下坡容易上坡难,为什么?能否给点哲理性的回答,请不要用物理知识解释. detoxifying clay 我还未上学 用英语怎么说 为什么爬山时上坡容易下坡难?如题 gold deep cleansing clay 有两根绳子,长短相同但粗细不同.从两根绳子的一段烧起,粗绳子可以烧120分钟,细绳子可以烧40分钟.现在从两根绳子的一段同时烧起,又同时熄灭.此时粗绳子还剩30厘米,细绳子还剩10厘米.问这 1.一块地有25分之18公顷,用3台拖拉机耕地,5分之2小时可以耕完,平均每台拖拉机每小时耕地多少公顷?2.一艘轮船从甲地驶往乙地,3小时行了75千米,正好行了全程的3分之2,甲乙两地相距多少千米? 美使馆疑用这个“白盒”监听军事专家:极易致误判误撞和擦枪走火冷战游戏 蓦然重现空气污染致癌 波兰向碳排放开刀斯诺登谋得俄网站工作禁化武组织:叙利亚已按规定销毁化学武美国辱华电视主持人称不会辞职 未答应“免费”医疗让俄罗斯进退两难 仅约3上海自贸区改革红利初显 打造宽进严管报告称撒哈拉以南地区明年经济增速将达学者解析温家宝首次出书谈教育:出身教山东菏泽回应城建局集体打牌:6名员工内蒙古调查乌兰察布新豪楼:立即停止办新一批法规今起实施 手机预装软件应报俄媒体称斯诺登将供职于俄知名网站新消法规定:消费遇商家侮辱搜身可索赔律师称斯诺登将从11月起在俄大型网站直击吉林松原震区:村民“抱团”度寒夜斯诺登将为俄网站“打工”阿曼向世卫组织报告首例新型冠状病毒确伦敦股市股指10月31日下跌裴坦与曾国藩的北京警航将协助津冀执行警务飞行抵制网络淫秽色情信息新生代“棋王”王天一转投内蒙古队无标题澳大利亚订购58架F-35战机我国产业结构调整取得积极进展有人随地便溺欠文明北京:政府“有形之手”不唯GDP是图废旧玩具变创意作品真理昭昭路迢迢文津图书奖十部好书中四部是科普信阳设“环卫工人爱心食堂”各项书面文书要及时统一快递三轮享受阅读 先学“静心”对“借床不还”的零容忍全国象棋甲级联赛5月开幕外地牌照车可在京典当融资养牛场粪便乱堆臭味熏人4月汇丰制造业PMI回升至48.3
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘