我的ActiveForm滚动最小化均没问题,我也在做ActiveForm,欢迎联系[email protected]
win2000 server 中文版+delphi6+ie6 中文版

解决方案 »

  1.   

    这是D5中单元axctrls.pas中的BUG,D6已经解决了这个问题。使用D6的axctrls.pas单元,并把编译过的.DCU文件覆盖$(Delphi)\LIB下的同名文件即可。
      

  2.   

    我也做了。
    你们知道包技术发放的activex控件怎么运行?
      

  3.   

    delphi activeform花屏问题的详细解决过程
     
    将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下,将原有文件覆盖即可.