Delphi BUG 重大发现!!!

[wf]

在delphi 5 中我做的ACTIVE FORM 控件放在ie5浏览器中，当滚动浏览器窗口时，
active form 控件会花屏（也就是控件的刷新有问题）。
请问如何解决这个问题，是不是DELPHI 5本身的bug?

[fzm2000]

不是。

[cjf]

我从没试过，可能只是你的问题。

[sunrised]

老兄!!標題用不著打這麼大吧!!

[halfdream]

做ACTIVEfORM当然常有这样或那样的不令人满意的地方。
这算不得什么BUG。

[wf]

难道各位没试过吗？我可以告诉大家delphi 4 、c++ Builder 5 做出来的Active Form 都没问题，只是delphi 5的问题。

这个问题确实是delphi 5 中的一个bug，但delphi 5 提供的pack竞然没有修正此问题。
经过向borland 求助，现在我已经知道如何解决此问题。

修改 axctrls 单元中SetObjectRects 函数:
function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
const rcClipRect: TRect): HResult;
var
WinRect: TRect;
begin
try
IntersectRect(WinRect, rcPosRect, rcClipRect);
// Begin Fix Bug
WinRect := Bounds(rcPosRect.left,
rcPosRect.Top,
// Begin My Modification
rcPosRect.Right - rcPosRect.Left,
rcPosRect.Bottom - rcPosRect.Top);
// End My Modification
// End Fix Bug
FWinControl.BoundsRect := WinRect;
Result := S_OK;
except
Result := HandleException;
end;
end;