我的ActiveForm滚动最小化均没问题,我也在做ActiveForm,欢迎联系[email protected]
win2000 server 中文版+delphi6+ie6 中文版
win2000 server 中文版+delphi6+ie6 中文版
解决方案 »
- 能否帮忙看看应该如何更正吗?
- 如何在服务程序里查询窗口句柄?
- ActiveSkin V4.3是否支持delphi7
- 谁有本事写的MIS系统在普通广域网中的速度达到局域网中的速度?
- 我想把数据写入文件流中,我的我代码如下:请问如何实现以下功能。
- dvd的参数???
- 请问怎样实现端口监听?
- 如何实现这样的窗体,马上给分!!
- 关于大的内存流的复制问题
- 程序设计估价:按一定要求对最多200亿行数据进行累加(单机版,4个小时内算完)
- 我在使用DELPHI数据库时错误!
- 请问[Error] RLINK32: Error opening file "D:\Doc-soft\untindex.dfm"是什么意思?
你们知道包技术发放的activex控件怎么运行?
将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下,将原有文件覆盖即可.