如何把Delphi 5写的activeform的HTM代码与Dreamweaver 3写的网页文件的HTM代码完美的结合? (200分)

  • 主题发起人 主题发起人 lanjian
  • 开始时间 开始时间
L

lanjian

Unregistered / Unconfirmed
GUEST, unregistred user!
我用如下的技术写了IE下的应用系统:Delphi 5写出activeform,并把它生成的HTM文件中
object …/object部分剪切到已经用Dreamweaver 3写好的网页的HTM文件的合适位置。
用IE 4浏览新生成的HTM文件,可以看见Dreamweaver 3写的网页与Delphi 5写出的activeform
完美的结合在一起,可是却存在以下两个问题:
1、我用 Delphi 5写出的activeform比IE可以看见的窗口高。不拖动IE的滚动条时,
原来属于activeform的部分能正常显示一半(没有凌乱),当用鼠标向下拖动IE的滚动条
时,用 Delphi 5写出的activeform部分的界面变乱了,再用鼠标向上拖动IE的滚动条还
原时,原来属于activeform的上半部分又能正常显示。而在此过程中,原来用Dreamveaver
写的网页部分始终能正常显示(界面没有一点变乱)。
2、我用Dreamveaver写的网页有浮动菜单的功能,即:某一图片当鼠标经过时,会弹出一个
菜单。由于弹出的菜单与activeform有重跌的部分,所有的菜单都被activeform挡住了,即
菜单在activefom背后。看起来,activeform与dreamweaver写的网页根本不在IE窗口的同一
层上。
请问各位大虾,如何解决这些问题?我的Email:e_armay@cmmail
急切的等着您的救助!
 
眼睛都花了。换了行再说吧
 
W K!老大,我帮你换行真累!
 
这是“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

 
接受答案了.
 
后退
顶部