TdxSideBar控件问题

tnthanxu 2008-04-21 05:58:37
现在遇到的问题是我 不能增加2级菜单,对于用过这个控件的兄弟们来说,可能很容易,但找到这个控件,不知道怎么用;

现在一级菜单已经出来了,怎么在一级下添加2级菜单::dxSideB 是我给dxSideBar 的 name;

procedure TForm1.OKbtn1Click(Sender: TObject);
var
i : integer;
begin
i:=0;
qutree1.Open;
qutree2.Open;
qutree1.First;
while not qutree1.Eof do
begin
dxSideB.Groups.Add.Caption := qutree1.fieldbyname('MenuName').AsString;
qutree2.First;
while not qutree2.Eof do //////2级
begin
dxsideB.Groups.Add.Items.Add.Caption:=qutree2.fieldbyname('ChildName').AsString;
qutree2.Next;
end; //// 在这个里边究竟应该怎么写
qutree1.Next;
i:=i+1;
end;
end;

2级菜单就是出不来,出来的结果不是我要的结果
我的 qutree2 的datasource 为 qutree1 这个是没有问题,关键是怎么添加2级出来
请大家赐教!!!!!!!!!!!!!!!!!!!!!!
...全文
70 点赞 收藏 3
写回复
3 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
tnthanxu 2008-04-22
谢谢1楼了!
回复
gyk120 2008-04-21
貌似关键在于qutree2.First以及inc那里,楼上的说得很清楚了
回复
kaikai_kk 2008-04-21
procedure TForm1.OKbtn1Click(Sender: TObject);
var
i: integer;
begin
i:=0;
qutree1.Open;
qutree2.Open;
qutree1.First;
qutree2.First;

while not qutree1.Eof do
begin
dxSideB.Groups.Add.Caption := qutree1.fieldbyname('MenuName').AsString;
while not qutree2.Eof do
begin
dxsideB.Groups[i].Items.Add.Caption:=qutree2.fieldbyname('ChildName').AsString;
qutree2.Next;
end;
qutree1.Next;
inc(i);
end;
end;
回复
相关推荐
发帖
Delphi
创建于2007-08-02

4925

社区成员

Delphi 开发及应用
申请成为版主
帖子事件
创建了帖子
2008-04-21 05:58
社区公告
暂无公告