如何使用ActiveForm将Delphi的程序包装成浏览器模式的程序?(50分)

  • 主题发起人 主题发起人 flysnow1978
  • 开始时间 开始时间
F

flysnow1978

Unregistered / Unconfirmed
GUEST, unregistred user!
我们已经编写了一个C/S结构的程序,不知如何利用ActiveForm简便的转换成
浏览器方式下的程序?
 
先建立一个和应用程序主窗体一样大小的activeForm,
然后在这个activeForm激活时把旧应用程序的主窗体显示
在此activeForm的显示区域就可以了。
 
给我一份例子。
blackdog99@21cn.com
 
建立一个ActiveForm程序,在选项上选上About,就是同时生成
About窗口的,然后你看看他是怎么调用About窗口的,然后你照着这样搞就可以了。
 
如果完全解决,就好了!
 
首先生成一个ActiveForm工程保存在一目录下。建立一个和应用程序主窗体一样大小的
activeForm,将你需要包装的程序的文件全部拷贝到此目录下,将其添加到ActiveForm程序
中的uses部分,并声明如(var testForm:TForm1;)并在ActiveForm的onCreate事件中添加:
begin
testForm:=TForm1.Create(self);
testForm.parent:=self;
testForm.Align:=alClient;
testForm.Borderstyle:=bsNone;
testForm.visible:=true;
end;
在ActiveForm的销毁事件中加入;
begin
testForm.Free;
end;
编译后设置Project/Web Deploy Oprtions设置Web 服务器的根目录
然后Project/Web Deploy 发布
注:几乎任何应用程序都可用此方法包装成ActiveForm发布!
 
接受答案了.
 
李维书上有答案!
 
后退
顶部