Delphi创建ActiveX的属性、方法、事件
这里将自己用Delphi写ActiveX控件的一些体会写出来,我只写具体的事项步骤,具体为什么这样做,请查看网上的其他资源。
一、创建OCX
New-Outher-ActiveX-ActiveX Form
在New ActiveX Name中填入自己Ocx控件的名称。
一般不要选择Make Control Licensed 这样在OCX的安装的时候就不需要认证。但是在特别的时候要选择,看自己的程序需要。
二、建立
生成以后就出现这样的页面,你可以在上面添加自己需要的控件来完成OCX的功能。
三、建立属性
选择View-Type Liberary
出现这样的界面
选中IActiverFormX,点击右键选择添加Property,出现这样的界面,修改属性的名称,暂定为Wcaption,修改Type,属性的类型。
注意:属性、方法、事件的入参和出参一定要考虑大多数的软件和编译器能使用的数据类型。
其他的不要管,点击工具栏的Rrefrsh
在代码区private 中建立一内部存储数据,暂定义为 FWcalption:integer;
在Get_wcaption 函数中,写
Result:=Fwcaption;
在 Set_wcaption函数中,写
FWcaption := value;
最后在本单元的Public中增加
property Wcaption:Integer read Get_Wcaption write Set_Wcaption;
这样整个OCX的属性就建立完毕。
四、建立方法
选择View-Type Liberary
出现这样的界面
选中IActiverFormX,点击右键选择添加Monther,出现这样的界面,修改方法的名称,暂定为setlongin。
方法的建立方法基本上属性的建立方式一样,不一样的地方就在下面,方法的入参和出参。
选择该方法,再选择Paraneters 建立出参和入参。
注意出参为指针型,点击Refrsh 在本单元的代码区,找到
function TActiveFormX.SetLongin(const Name: WideString): Integer;
这就是该方法的实现区,在这里可以添加你要的代码。
方法的实现过程就是这样。
五、建立事件
选择View-Type Liberary
选中IActiveFormXEvents 点击右键,添加Mothod
和‘方法’的建立方法的内容一样。
注意的地方在以下:
在private 添加
OnCaption: TActiveFormXOnCaption;
、、、
procedure CaptionEvent(Sender: TObject; const Rcaption: WideString);
在procedure TActiveFormX.Initialize; 过程中添加
OnCaption := CaptionEvent;
在代码中添加
procedure TActiveFormX.CaptionEvent(Sender: TObject; const Rcaption: WideString);
begin
if FEvents <> nil then FEvents.OnCaption(Rcaption);
end;
在代码中的触发的方法为
OnCaption(Self,Edit1.Text);
以上就是Delphi编写 OCX属性、方法、事件的具体的实现过程,具体的为什么这样做请参考Delphi的教科书或其他资料。