ActiveForm编译成ocx用在流览器(IE)上拖,动时变花怎样解决? 无论用NT4,win2000,win98,IE4,IE5都是这样。当Active Form 的上界或左界碰到IE的边框时就会变花。Help Me!我用Delphi 5 编译时会变花,Delphi 4不会。是为什么? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 我刚找到答案这是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下,将原有文件覆盖即可. 这是delphi5的一个bug,最乘客单的方法,你只要到delphi的主页上下一个axctrls.dcu文件126K,覆盖delphi目录下原来的文件即可。。 socket服务作为应用服务器的问题,大量使用了string类刑 急!在delphi中调用windows程序的方法 我是初学者,请教大家,这种控制用户权限的方法可行吗 急!急!急!bcdtostr 怎么用100分 dbgrid的oncellclick事件中,如何取单击的是哪一条记录? 急寻读条形码的软件 关于用ICS下载文件的文件保存问题 Delphi,关于类对象的赋值和数据交换问题,请教各位大侠:... 介绍几本有用的书 Dephi中的控件动态添加及相应事件的问题!! 如何实现日期+1? 软件行业大调查
这是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下,将原有文件覆盖即可.