您的位置：首页 > 其它

ActiveForm 带参数用法

2005-09-16 09:34 295 查看

---摘自：http://blog.csdn.net/demongz/archive/2005/06/02/386641.aspx
<!>通过View菜单的Type Library项打开类型库编辑器，在接口中加入
一个属性，如ServerIP，在Parameters属性页中设定参数Value的类型
为BSTR,然后点击Refresh Implementation按钮将在实现代码中加入:
function Thdc2X.Get_ServerIP: WideString;
procedure Thdc2X.Set_ServerIP(const Value: WideString);
最后在Set_ServerIP过程中即可通过Value读出传入的IP，实现你的
功能，如 NMFTP1.Host:=String(Value);
<!>
<HTML>
<OBJECT
classid="clsid:867196A5-2803-4C2A-84DE-9C3CE0BBF3A5"
codebase="./testpara.ocx#version=1,0,0,0"
width=350
height=250
align=center
hspace=0
vspace=0
>
<param name="test" value="Mycomputer">
</OBJECT>
</HTML>

很多人想把自己编写的应用程序做成以浏览器为界面，通过打开浏览器的方式来使用应用程序，其实在delphi中实现起来很简单，我们以用delphi6.0为例把实现的完整步骤写出如下：　
1、选择"file/new/other"于new items对话框中选择activex选项，在其中选择建立activex form。此时会弹出一个对话框用于输入你所建立activex组件的名称、object pascal程序单元名称、项目名称等。还有一些activex包含版本控制编号等可选项，可以按缺省的设置直接点击ok即可。　
2、现在你可以在打开的工程中来设计你的程序了，这里和一般的应用程序的设计一样，可以根据自己的需要来创建不同的form来实现自己的功能。但需要注意一点的是各form之间的调用不能用form.showmodal来实现了，需要动态调用ShowForm来实现，如以下定义过程：
Procedure Tform1.ShowForm(AFormClass:TFormClass);
Begin
With AFormClass.Create(Self) do
try
ShowModal;
finally
Free;
end;
End;

　
　调用form2可以用：showform(Tform2)，程序设计完成后，保存单元文件和工程文件到相应的目录下。假设保存在"c：/my documents"。　
　3、程序设计完成之后，可以准备生成你所想要的应用程序了，但这里不是点击运行，而是首先选择"project/web deployment options" 在project选项中的"Target dir"中添入"./"， "Target URL"中添入"./"， "HTML dir"中添入"./"来设置一些文件存放路径。最后选择"project/web deploy"，点击"yes to all"即可。　　　
此时打开 "c：/my documents"会看到已生成的htm文件，打开htm文件你会看到你所设计的应用程序已经可以在浏览器中使用了。你可以用网页编辑器来修改所生成的htm文件使它更符合你的要求。至此完整的实现过程结束。实际上Delphi是把编写的应用程序编译成了activex组件，在浏览器中调用activex组件，所以只适用于一些小的应用程序。

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航