activeform 在浏览器中卷动的问题

[fhaibo]

在IE浏览器中下拉滚动条，
页面上的activeform
出现重叠的现象
好想是activeform的重画出现问题
浏览器最大化最小化却没有这种现象
怎么解决?

[34535345345345345345]

delphi5以前包括delphi5的bug,建议你升级到delphi6或者delphi7
不过倒是有解决的方法 看这个　

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;
// 修改如下
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 !

[34535345345345345345]

delphi5以前包括delphi5的bug,建议你升级到delphi6或者delphi7
不过倒是有解决的方法 看这个　

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;
// 修改如下
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 !