用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。