使用Raize控件包,
在groupbar中,有数个group,如何得到所有group的caption 这里使用frmMain.LeftMenuGBar.ControlCount可以得到group的个数 frmMain.LeftMenuGBar.Controls[i].GetNamePath可以得到所有group的Name group的Caption在上一个帖子中“ccrun ”给了答案,是
rocedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to RzGroupBar1.GroupCount - 1 do
begin
Memo1.Lines.Add(RzGroupBar1.Groups[i].Caption);
end;
end;
这里又个问题了,那么一个group下有多少个item,怎么写?显示各个group下的item的Name和Captoion怎么写?
在groupbar中,有数个group,如何得到所有group的caption 这里使用frmMain.LeftMenuGBar.ControlCount可以得到group的个数 frmMain.LeftMenuGBar.Controls[i].GetNamePath可以得到所有group的Name group的Caption在上一个帖子中“ccrun ”给了答案,是
rocedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i := 0 to RzGroupBar1.GroupCount - 1 do
begin
Memo1.Lines.Add(RzGroupBar1.Groups[i].Caption);
end;
end;
这里又个问题了,那么一个group下有多少个item,怎么写?显示各个group下的item的Name和Captoion怎么写?
var
i:integer;
begin
for i := 0 to RzGroup1.Items.Count - 1 do
begin
ShowMessage(RzGroup1.Items[i].Caption);
end;
end;
我是这样写的 RootNode:=chktr_PowerList.Items.Add(nil,'所有权限');
for i:=0 to frmMain.LeftMenuGBar.ControlCount-1 do
begin
ParentNode:=chktr_PowerList.Items.AddChild(RootNode,frmMain.LeftMenuGBar.Groups[i].Caption);
for j:=0 to 这里就不知道了
end;希望能列出界面上所有groupbar中group及其相应的item
最终想要的格式是
All
|--group1.caption
|-----group1.item[0].caption
|-----group1.item[1].caption
|-----group1.item[2].caption
|--group2.caption
|-----group2.item[0].caption
|-----group2.item[1].caption
|-----group2.item[2].caption
|--group3.caption
|-----group3.item[0].caption
|-----group3.item[1].caption
|-----group3.item[2].caption
|--group4.caption
|-----group4.item[0].caption
|-----group4.item[1].caption
|-----group4.item[2].caption
for I := 0 to RzGroupBar1.GroupCount - 1 do
begin
Memo1.Lines.Add(RzGroupBar1.Groups[i].Caption);
for j := 0 to RzGroupBar1.Groups[i].Items.Count - 1 do
begin
Memo2.Lines.Add(RzGroupBar1.Groups[i].Items[j].Caption);
end;
end;