前面讨论过
来自：win1998 时间：00-8-12 21:56:22 ID:306818
1: modify source/vcl/axctrls.pas
2: function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
const rcClipRect: TRect): HResult;
var
WinRect: TRect;
begin
try
IntersectRect(WinRect, rcPosRect, rcClipRect);
// FWinControl.BoundsRect := WinRect;
// modify by xuan 2000.08.09
FWinControl.BoundsRect := rcPosRect;
Result := S_OK;
except
Result := HandleException;
end;
3:save it and add it in new project. in new project you compile it,
then
copy axctrls.dcu to lib overwrite old file axctrls.dcu
4: All Ok!
宣舟灿
win1998@21cn.com
