RzGroupBar动态创建，每个Item的事件要如何解决

Question

RzGroup-Items是动态创建的，那Item的Click事件要如何解决，以前用过的有个onItemClick事件，
要用RzGroupBar实现类似效果该如何写代码？

Answer 1

写个GroupBarItemClick事件
再RzGroupBar.OnItemClick := GroupBarItemClick;

Answer 2

procedure GroupBarItemClick(Sender:TObject);procedure TForm1.GroupBarItemClick(Sender:TObject);
begin
  ShowMessage(TRZGroupItem(Sender).Caption);
end;
在动态创建item时给函数指针赋值：
RzGroupBar.OnItemClick := GroupBarItemClick;