Delphi 编写ActiveX控件(OCX控件)的知识和样例(6)

Delphi 编写ActiveX控件(OCX控件)的知识和样例

with FDelphiControl do

begin

if Value then

Options := Options + [goRowSelect]

else

Options := Options - [goRowSelect];

end;

end;

3、生成ActiveX控件（OCX控件）

这时候，使用类型库编辑器来查看类型库，可以看到新增加的BRowSelect属性。好了，做好了前面这些工作以后，选择Project菜单的Build StringGridXControl1命令即可生成我们所需要的ActiveX控件。在项目的目录下，我们可以找到 StringGridXControl1.ocx这个文件，这个就是我们的ActiveX控件啦！

4、把ActiveX控件（OCX控件）注册到系统中

1>、在Delphi中单击【Component】—>【Import ActiveX Control】菜单项，打开【Import ActiveX】窗口，在窗口中点击【Add】，然后选择ocx文件，然后单击Install按钮安装组件。如果成功，在ActiveX组件页中将显示该组件。

2>、 把它拷贝到Windows 9x的System目录或者Windows NT/2000的System32目录里面。在DOS命令行状态中，运行命令：regsvr32.exe

c:\winnt\system32\alasunsmscon.ocx （regsvr32 StringGridXControl1.ocx）在系统中注册这个StringGridX控件。

3>、在Delphi中，打开创建该ActiveX控件的工程(*.dpr)文件，然后选择Run->Register ActiveX Server.

注意，以上第2种方法和第3种方法操作只是向Windows消息系统注册了该ActiveX控件，但是并没有将其添加到Delphi的VCL库中。还无法在其它程序中调用。我们还需要