急求rzgroup控件的问题（小弟穷得不行了，请好心的人还是进来看看吧） ( 积分: 0 )

rzgroupbar控件.小弟第一次用啊。。

我在用Rzgroup创建了几个item，我点击item时候 form1.show.
我怎么才能判断为点的就是那个item.

通俗点就是这么把 rzgroup.item.caption付给form1.caption.必须是我点哪个item的就把它的caption付给form1.caption.
怎么写啊。。我郁闷中。。还有我的rzgoup,item都是动态创建的啊。。。

rzgroup应该有itemIndex属性吧

在OnClick事件中：
Form1.Caption := (Sender as TRzGroupItem).Caption;

写个通用的方法。。
我的代码如下。好心的人帮我改下。。
形如QQ创建组的功能模块（最近做的短信平台软件需要动态创组的问题）：
//创建组
procedure TMain.SaveGroup;
//var
//Group :TRzGroup;
//NameItem :TRzGroupItem;
begin

with qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select GroupName,Id from SMB_Group');
Open;

while not Eof do
begin
Group :=TRzGroup.Create(Self);
RzGroupBar1.AddGroup(Group);
Group.Caption :=FieldByName('Groupname').AsString;
Group.SmallImages:=ImageList1;
Group.PopupMenu :=pm2;
Group.OnDblClick:=frmZSFormCreate;
Group.OnMouseMove:=xonMove;
// ZS.Panel2.Caption :=Group.Caption;

with qry4 do
begin
Close;
SQL.Clear;
SQL.Add('select * from SMS_PHBK');
Open;

while not Eof do
begin
with qry2 do
begin
Close;
SQL.Clear;
SQL.Add('select * from SMB_Group_User where GID='+qry1.FieldByName('ID').AsString+'and UID ='+qry4.FieldByName('ID').AsString);
Open;

while not eof do
begin
NameItem :=Group.Items.Add;
NameItem.ImageIndex:=Random(Group.Items[0].ImageIndex);
NameItem.Caption :=qry4.FieldByName('LINa').AsString;
NameItem.Enabled :=True;
NameItem.OnClick :=N3Click;

Next;
end;

end;
Next;
end;
end;




Next;
end;



end;

end;

继续问啊

Next;
end;



end;

end;

等待回答

我的RzGroup-Items是动态创建的，那Item的事件要如何解决，
之前我用TREEVIEW控件，TREEVIEW控件有个单击事件，
可以根据单击的节点来执行某段代码，要用RzGroupBar实现类似效果该如何写代码

Corn3已经回答得很清楚了,在NameItem.OnClick :=N3Click里解决

接受答案了.