给我一个用delphi写activex ocx的例子吧

Question

菜鸟，给个例子就好了。学一下。
想在ocx里面做个函数，然后外面调用。
多谢。

Answer 1

希望做一个ActiveX控件，能显示系统时间，同时显示的周期可以
由外部参数控制。    一、首先清空Form；    二、File--New--Other--ActiveX--Active Form --Ok    三、其中遇到 New ActiveXName：自己给控件起名；
        比如这里写上Showtime。 
        下面的多选框选择可选可不选。        这样就产生了三个单元，其中第三个是类库（TLB），一般不
要动。    四、在System页  --加入 Timer
          Standard页--加入 Label（改变字体和字号）    五、Timer的Interval属性定为1000，表示每隔1000毫秒触发一下。
给 Timer 的 Timer1Timer  事件加一句显示系统时间：         label1.Caption:=timetostr(Time);    六、现在要给控件增加一个属性，用外部数据来控制触发间隔，也
就是Timer的Interval属性。    菜单--Viwe--type Library--可以看到Form的属性    增加属性：
    New proporty（注意是图标）--Name：属性的名字(mytime)。
    如果是可读写的，就有两个属性函数，一个是Get，另一个是Set。    刷新（Refresh Implementation）后在ShowtimeImpl1单元里可以看
到两个get函数和set过程，把相应的程序写进去。    function TShowtime.Get_mytime: Integer;
    begin
        result:=timer1.interval;
    end;    procedure TShowtime.Set_mytime(Value: Integer);
    begin
        timer1.interval:=value;
    end;    七、在project--build进行编译、保存。    八、注册：Run--Register ActiveX Server --产生一个OCX 文件。    实际上一个Activex已经完成了。在使用的时候，要进行安装，方法
如下：    1）Component---import ActiveX Contrul 在列表框中，选择所需
的控件。    2）Add 加入进来（OCX文件），注意：Palette page：指的是放在
哪个包里（可新建，也可以默认）--OK    3）重新编译（一般按默认值走）--Ok    4）这就在面板上出现了一个新的图标，和普通控件一起使用。    注意一下，ActiveX控件有个新的属性AxBorderstyle--边界风格：
    另外：mytime是自己给出的控制内部元件的属性，这里是时钟的触
发周期。

Answer 2

有不用activeX form方式吗？
可以给我一个源代码吗？

Answer 3

Component---import ActiveX Contrul ,注册几个OCX控件，DELPHI会生成相应的。PAS文件，自己分析一下，就可以了，很经典。