Delphi开发ActiveX控件示例

1.打开Delphi

2.File->New->Other->ActiveX->Active Form

3.弹出Active Form Wizard窗口，采用默认配置，单击“OK”

4.出现Form设计界面，这里添加一个Button和一个Edit控件

5.双击Button，添加事件处理代码

procedure TActiveFormX.Button1Click(Sender: TObject);
begin
   Edit1.Text : = ' Hello World! ' ;
end ;
6.保存并编译程序

7.发布程序，Project->Web Deployment Options，弹出Web Deployment Options窗口，填写说明如下：
Target dir：C:\Inetpub\wwwroot（IIS目录，OCX发布的目录）
Target URL：http://localhost/（OCX发布的URL）
HTML dir：C:\Inetpub\wwwroot（IIS目录，HTML发布的目录）

8.调试Active Form，Run->Parameters，弹出Run Parameters窗口，填写说明如下：
Host Application：点击“Browser”找到IE
Parameters：填入自动生成的HTML文件地址，这里为“C:\Inetpub\wwwroot\ActiveFormProj1.htm”

9.注册ActiveX，Run->Register ActiveX Server

10.运行程序
 

注意：如果看不到控件，可能是IE限制了下载未签名的ActiveX控件，你需要修改IE的安全设置，我用的是IE6；另外FireFox需要安装插件才支持ActiveX