转:
附给你一段做ACTIVE FORM的简单例子。
首先设置一个虚拟目录,定名为Delphi
1)进入Delphi,Close all
2)New -> Other -> ActiveX -> ActiveX Form ->Name: MyActiveX
OK
3)出现一个普通的Form界面,放入
TButton
TListBox
TEdit
三个控件,设计目标是,点Button后ListBox添加一个Edit的内容。
4)Save all 到虚拟目录的 ActiveX/Ac2/ 子目录下。
5)双击Button,在Button1Click事件程序下写:
ListBox1.items.add(edit1.text);
6)这就完成了,保存。
7)Porject ->Build All 编译
8)Porject -〉Web Deployment Options 设置分发参数
第一项:OCX保存的目录 (虚拟目录/ActiveX/ac2/)
第二项:OCX保存在哪个相对路径中
(http://127.0.0.1/delphi/ActiveX/ac2/)
第三项:Delphi产生的HTML 保存路径(虚拟目录/ActiveX/ac2/)
Ok
9)产生嵌入ActiveXForm的HTML文件
Porject -〉Web Deploy
现在保存这个工程然后退出
观察效果
打开IE浏览器, 把网址写为:http://127.0.0.1/delphi/activex/ac2/
就可以看到下面的文件列表:
[To Parent Directory]
2000年5月27日 9:10 750 MyActiveImpl1.~dfm
2000年5月27日 9:11 9160 MyActiveImpl1.~pas
2000年5月27日 9:31 16936 MyActiveImpl