CategoryButtons2.Categories[0].Items的Onclick事件

Question

怎么动态添加CategoryButtons2.Categories[0].Items的Onclick事件？

Answer 1

定义自己的click函数
yourclick(sender:TObject)//参数根据实际情况定
CategoryButtons2.Categories[0].Items.onclick=yourclick
这两个过程的参数要保持一致

Answer 2

for i:=0 to count do
 begin
  categoryButtons2.Categories[0].Items[i+1].OnClick:=CategoryButtons2Categories0ItemsClick;
 end;这里的click事件该怎么写？参数是什么？

Answer 3

procedure CategoryButtons2Categories0ItemsClick(Sender: TObject);
就可以了！~

Answer 4

procedure CategoryButtons2Categories0ItemsClick(Sender: TObject); 
这个函数里怎么判断是哪个Items触发的