procedure TForm1.ItemClick(Sender: TObject); begin ShowMessage(IntToStr(TRzGroupItem(Sender).Tag)); end;procedure TForm1.FormCreate(Sender: TObject); var Group: TRzGroup; Item: TRzGroupItem; i: integer; begin Group:=TRzGroup.Create(nil); for i:=0 to 9 do begin Item:=Group.Items.Add; Item.Caption:='Item'+IntToStr(i); Item.Tag:=i; Item.OnClick:=ItemClick; end; RzGroupBar1.AddGroup(Group); end;
begin
ShowMessage(IntToStr(TRzGroupItem(Sender).Tag));
end;procedure TForm1.FormCreate(Sender: TObject);
var
Group: TRzGroup;
Item: TRzGroupItem;
i: integer;
begin
Group:=TRzGroup.Create(nil);
for i:=0 to 9 do
begin
Item:=Group.Items.Add;
Item.Caption:='Item'+IntToStr(i);
Item.Tag:=i;
Item.OnClick:=ItemClick;
end;
RzGroupBar1.AddGroup(Group);
end;
右键单击一个group然后pop一个menu,选择添加或者删除一个group,这个效果怎么实现?
刪除一個GROUP:
RzGroupbar1.Groups[1].Hide;
RzGroupBar1.RemoveGroup(RzGroupbar1.Groups[1]);
增加GROUP使用INSERTGROUP方法!
解決辦法可以這樣.ExculsiveMode設置為True!這情況下隻能OPEN一個Group,遍歷可以得到當前Index,或者在Group的Open的時候設置全局變量的數值記錄展開的Group的Index.
菜單中刪除Group隻刪除目前展開的Group!
在 mousedown事件中写 当前的Tag =1
操作的时候发现
for i:= Count -1 to 0 do
if group[i].tag = 1 then
delete
结帖