关于自制组件

Question

Button 有一个Tag的属性，你可以给每个Button的Tag赋不同的值，然后在按钮的事件中用
  case (sender as TButton).Tag of
    0:……;
    1:……;
    ……;
  end;
就可以知道是那个按钮的事件了。

Answer 1

咦
用TButton(sender).name来区分啊

Answer 2

自定义事件类型，类似TMouseEvent

Answer 3

publish
 property Onclick(index:integer;sender:tobject);Overload;

Answer 4

建议你去买本ActiveX控件的书，否则，一两句也说不清。

Answer 5

先定义一个过程变量：
type TMyNotifyEvent = procedure (Index: Integer; Sender: TObject) of object;
然后在组件中的OnClick指向这个变量
property OnClick: TMyNotifyEvent;
那么OnClick中就可以进行自由的处理了。

Answer 6

还漏了一些东西。更正一下。
先定义一个自定义数据类型：
type TMyNotifyEvent = procedure (Index: Integer; Sender: TObject) of object;
在private区中定义一个该过程变量：
FMyNotifyEvent: TMyNotifyEvent;
然后在组件中的public区中把OnClick指向这个变量
property OnClick: TMyNotifyEvent read FMyNotifyEvent write FMyNotifyEvent;
题外话：
如果这位兄弟对组件制作感兴趣的话，我的QQ号是43599482,我也很感兴趣！

Answer 7

还漏了一些东西。更正一下。
先定义一个自定义数据类型：
type TMyNotifyEvent = procedure (Index: Integer; Sender: TObject) of object;
在private区中定义一个该过程变量：
FMyNotifyEvent: TMyNotifyEvent;
然后在组件中的publish区中把OnClick指向这个变量
property OnClick: TMyNotifyEvent read FMyNotifyEvent write FMyNotifyEvent;
题外话：
如果这位兄弟对组件制作感兴趣的话，我的QQ号是43599482,我也很感兴趣！