如何解决activeform在web页面上的显示问题(100分)

  • 主题发起人 主题发起人 rolland
  • 开始时间 开始时间
R

rolland

Unregistered / Unconfirmed
GUEST, unregistred user!
你我都知,activeform在web页面上是以object的形式插入的,问题是:当activeform较大时,需要使用浏览器上的滚动条,这会使得其变形,页面上也不干净,有何高招? 不要太难哦!
 
我也有同样的问题,有一位高手给我说。现已解决如下:
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

 
修改HTML的原码
HEIGHT
WIDTH即可
 
谢谢win1998,但经过刻意缩小窗口-->滚动(此时的确OK)-->放大恢复窗口(此时窗体
不干净,即未能刷新)

望再赐招!
 
附加功能 将问题提前
 
接受答案了.
 
后退
顶部