为什么在delphi里的activeform刷新有问题？

Question

这是Delphi5的一个bug，找到axctrls.pas
function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
  const rcClipRect: TRect): HResult;
var
  WinRect: TRect;
begin
  try
    IntersectRect(WinRect, rcPosRect, rcClipRect);
    FWinControl.BoundsRect := WinRect;
                              ~~~~~~~  改成rcPosRect,编译成dcu,覆盖\lib下面那个
    Result := S_OK;
  except
    Result := HandleException;
  end;
end;其实DELPHI6已经解决了这个问题,用DELPHI6吧,它还有很多新功能呢!