奇怪的问题！(20分)

各位高手，我采用delphi5.0制作了一ActiveX控件,在frontpage中浏览，当我拖动scroll时，
控件界面开始显示很乱的画面，我浏览其他的已有的activeX时，一切正常，这是为何？拜托！

说说你的activeX是怎么做的,什么用的?是不是用了canvan没有重绘

我只不过在上面胡乱加了几个控件而已，不知为何出现这种情况？

应该是老问题了吧
AxCtrls.pas

function TActiveXControl.SetObjectRects(const rcPosRect: TRect
const rcClipRect: TRect): HResult;
var
WinRect: TRect;
begin
try
IntersectRect(WinRect, rcPosRect, rcClipRect);
FWinControl.BoundsRect := WinRect;
Result := S_OK;
the_end:
except
Result := HandleException;
end;
end;
修改为:
function TActiveXControl.SetObjectRects(const rcPosRect: TRect
const rcClipRect: TRect): HResult;
begin
try
FWinControl.BoundsRect := rcPosRect
// <--- "fix"
Result := S_OK;
except
Result := HandleException;
end;
end;
相关站点见:
http://www.wideman-one.com/gw/tech/Delphi/dax/afxclipbug.htm
这是NEWSGROUPS.BORLAND.COM里很早就讨论过的问题了

wenyu
Thank you !
Thank you !
Thank you !
Thank you !
Thank you !
Thank you !

关注

接受答案了.