来自：大文 时间：00-10-9 14:16:22 ID:360788  

这是"win1998"回答的问题，我只是照搬而已：

我也有同样的问题，有一位高手给我说。现已解决如下：

1：打开 delphi 下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;  //〈--- n=modify this word

   Result := S_OK;

 except

   Result := HandleException;

 end;

3: save it

4: new project application

 add axctsls.pas to this project, and then compile project,

 late, copy axctrls.dcu to ..lib and overwirte old file axctrls.dcu !

宣舟灿

win1998@21cn.com