Question

如何用Delphi编写ActiveX控件

Answer 1

　　首先单击delphi7之后会打开一个Project1

关闭此工程

新建工程

新建Active Form窗体

添加一个Button按钮，添加事件
procedure TActiveFormX.Button1Click(Sender: TObject);
begin
showmessage('This is ActiveX test!');
end;

工程文件目录

如果以下发布选项是灰色时
Web Deployment Options
Web Deploy

再创建一个新窗体
File->New->Other-ActiveX->Active Form

此时的Web Deployment选项已经可以使用

设置发布选项

点击Web deploy发布后的工程目录位置以及相关文件

在运行中执行或做成批处理*.bat执行
注册ocx
RegSvr32 /s ActiveFormProj1.ocx
注销ocx
RegSvr32 /u ActiveFormProj1.ocx

运行测试页面

ocx控件被阻止

允许控件运行，请点击是。

控件显示异常

当页面不能正常显示时，请注释以下License(GUID)
　　[delphi] view plaincopy
　　procedure TActiveFormX.Button1Click(Sender: TObject);
　　begin
　　showmessage('This is ActiveX test!');
　　end;
　　
　　
　　initialization
　　TActiveFormFactory.Create(
　　ComServer,
　　TActiveFormControl,
　　TActiveFormX,
　　Class_ActiveFormX,
　　1,
　　'{F3B4BC72-4399-4F8B-941C-0D5C6099DFCA}',
　　OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
　　tmApartment);
　　end.
　　并换成'',

　　[delphi] view plaincopy
　　<pre name="code" class="delphi" style="margin-top: 4px; margin-right: 0px; margin-bottom: 4px; margin-left: 0px; background-color: rgb(240, 240, 240); ">procedure TActiveFormX.Button1Click(Sender: TObject);
　　begin
　　showmessage('This is ActiveX test!');
　　end;
　　
　　
　　initialization
　　TActiveFormFactory.Create(
　　ComServer,
　　TActiveFormControl,
　　TActiveFormX,
　　Class_ActiveFormX,
　　1,
　　'',
　　//'{F3B4BC72-4399-4F8B-941C-0D5C6099DFCA}',
　　OLEMISC_SIMPLEFRAME or OLEMISC_ACTSLIKELABEL,
　　tmApartment);
　　end.
　　
　　
　　</pre><p></p>
　　<pre></pre>
　　编译工程并重新发布<br>
　　<br>
　　ActiveX控件已经加载并正常显示<br>
　　<img src="http://hi.csdn.net/attachment/201108/31/0_1314781502RKaA.gif" alt=""><br>
　　<br>
　　ActiveX控件测试成功！<br>
　　<img src="http://hi.csdn.net/attachment/201108/31/0_1314781508C7s6.gif" alt=""><br>
　　<br>
　　<br>
　
　　<p></p>