ActiveX控件在网页中的显示

Question

我做了一个ActiveX控件，在网页上显示的时候，一旦网页滚动时，控件的显示就全乱了。我是用AcitveForm做的。而且我只做一个ActiveForm，不放任何控件也是这样的。请各位指点一二。

Answer 1

这是Delphi的一个bug，找到axctrls.pas
function TActiveXControl.SetObjectRects(const rcPosRect: TRect;
  const rcClipRect: TRect): HResult;
var
  WinRect: TRect;
begin
  try
    IntersectRect(WinRect, rcPosRect, rcClipRect);
    FWinControl.BoundsRect := WinRect;
                              ~~~~~~~  改成rcPosRect,编译成dcu,覆盖\lib下面那个
    Result := S_OK;
  except
    Result := HandleException;
  end;
end;