一 创建ActiveForm工程

      使用Delphi ActiveForm的功能开发一个可以在浏览器中执行的Delphi应用程序。由于ActiveForm可以包含任何Delphi中的VCL组件，所以程序员可以建立一个拥有数据感知能力的ActiveForm组件，具有处理数据的能力，当它使用于IE时，就可以让IE变成能够处理数据的应用系统。

　　使用Delphi ActiveForm的功能开发一个可以在浏览器中执行的Delphi应用程序时，与通常的Delphi开发应用程序并不相同。Delphi开发在C/S模式下运行的应用程序，通常选择菜单项“File”—〉“New”—〉“Application”，从而建立一个新的project来完成。

　　开发在B/S模式下运行的应用程序，和C/S模式有些区别。 

      现在我们以一个最简单的实例,来介绍如何实现一个ActiveForm的程序。

      首先在Delphi 7中关闭所有的项目，接着选择“File”—〉“New”，在New Items对话框中切换到ActiveX选项卡中选择建立Active Form。然后点ＯＫ按钮,在向导窗体中输入New ActiveX name,这里我输入一个AFHello,其它保持默认，点ＯＫ

　　

　　这时Delphi为我们建立好了一个ActiveForm的窗体，我们先拉一个按钮到窗体上，把按钮的name属性设为btnHello,Caption设为say hello,在按钮的onclick事件中，输入编程：

　　procedure TAFHello.btnHelloClick(Sender: TObject);
　　　begin
 　　　 MessageBox(Handle,'我的第一个ActiveForm','hello',mb_ok)
　　　end;　

　　代码的部份完成了，选择菜单"File"->"Save All",保存所有工程，我这里是将工程中的所有文件保存在“Ｄ：＼ＡＦＨｅｌｌｏ＂目录下，下面就是要将ActiveForm发布出来了，从下拉菜单中选中"Project"->"Web Deployment Options"，在弹出的窗口输入如下信息

Target dir   :OCX保存的本地目录中

Target URL : OCX发布后的虚拟目录,这里".\"表示在根目下

HTML dir     :delphi 为我们输出一个包含控件的Html文件的存放目录

点击ＯＫ按钮,然后从下拉菜单中选中"Project"->"Web Deploy"，进行发布,在目标目录中生成了一个html文件和一个ocx文件，从ＩＥ加载html文件，就可以运行ocx了.用鼠标点击一个"say hello"按钮，看看运行情况是怎么样的。

哈哈，第一个ActiveForm工程就完成了！

 

      

转载于:https://www.cnblogs.com/zhusd/archive/2010/05/15/1735904.html