我也有同样的问题,有一位高手给我说。现已解决如下:
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