activeform 的刷新问题(100分)

当用activeform技术移植应用程序到web上时,由于主form比较大,在拖动ie5.0的滚动条时出现了花屏.
望各位专家救小生于水深火热之中.

哎,我也碰到过,把它做小点

在soruce/vcl/打开axctrls.pas,找到函数
function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
const rcClipRect: TRect): HResult;
var
WinRect: TRect;
begin
try
IntersectRect(WinRect, rcPosRect, rcClipRect);
FWinControl.BoundsRect := rcPosRect;
~~~~~~~~~~改成这样，重新编译成dcu,替换原来lib目录下的
Result := S_OK;
except
Result := HandleException;
end;
end;

Form做小一些，然后通过在里头放置一个TScrollbox解决滚动问题。

多人接受答案了。