用Delphi开发简单ActiveX控件

1.打开Delphi

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

[img]http://dl.iteye.com/upload/attachment/294800/47428789-4f5c-313a-8793-46b92a9dfeb5.jpg[/img]


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


[img]http://dl.iteye.com/upload/attachment/294802/62a4683e-1931-3400-bb74-5f6339c99479.jpg[/img]

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

[img]http://dl.iteye.com/upload/attachment/294804/619b828d-26e4-3982-8308-c134636f421d.jpg[/img]


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发布的目录）


[img]http://dl.iteye.com/upload/attachment/294806/fbe25bd1-0d0b-3733-a58f-45a59dde9344.jpg[/img]


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


[img]http://dl.iteye.com/upload/attachment/294808/c962cf84-a1c1-3987-8ec9-339fecfeab4c.jpg[/img]


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


[img]http://dl.iteye.com/upload/attachment/294810/69f9901f-624b-386e-a171-f72fbdf15ca3.jpg[/img]


10.运行程序


[img]http://dl.iteye.com/upload/attachment/294813/d813ddbd-0128-3d3d-8005-18a5b0c1f7fc.jpg[/img]

[img]http://dl.iteye.com/upload/attachment/294815/ddbda56c-c874-31d1-84ea-bd58a06c5f81.jpg[/img]


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