一 创建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。然后点OK按钮,在向导窗体中输入New ActiveX name,这里我输入一个AFHello,其它保持默认,点OK

  

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

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

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

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

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

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

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

哈哈,第一个ActiveForm工程就完成了!

      

原文地址:https://www.cnblogs.com/zhusd/p/1735904.html