delphi RzGroupBar1 如何分多层

[落幕年代]

大侠; RzGroupBar1 控件怎么分多层？

[s11ss]

procedure TForm1.FormCreate(Sender: TObject);
begin
  RzGroup1.Items.Clear;
  RzGroup1.Items.Add.Caption := 'Item0';
  with RzGroup1.Items.Add do
  begin
    Caption := 'Item1';
    IndentLevel:=1;
    Visible := False
  end;
  RzGroup1.Items[0].OnClick := RzGroup1Items0Click;
end;

procedure TForm1.RzGroup1Items0Click(Sender: TObject);
begin
  RzGroup1.Items[1].Visible := not RzGroup1.Items[1].Visible;
end;

[bdmh]

每一项里面还可以继续添加子项

[落幕年代]

引用 5 楼 s11ss 的回复:

;

嗯哈 谢谢大侠； 问题解决； 请问一下网络调试助手是个怎么原理啊；可以教我吗？谢谢

[落幕年代]

引用 5 楼 s11ss 的回复:

end;

http://bbs.csdn.net/topics/390897401?page=1#post-398308741 求指教？

[s11ss]

引用 6 楼 lailai186 的回复:

[quote=引用 5 楼 s11ss 的回复:] ;

嗯哈 谢谢大侠； 问题解决； 请问一下网络调试助手是个怎么原理啊；可以教我吗？谢谢[/quote]问题解决请结贴，谢谢

[落幕年代]

引用 1 楼 s11ss 的回复:

procedure TForm1.FormCreate(Sender: TObject);
begin
  RzGroup1.Items.Clear;
  RzGroup1.Items.Add.Caption := 'Item0';
  with RzGroup1.Items.Add do
  begin
    Caption := 'Item1';
    IndentLevel:=1;
    Visible := False
  end;
  RzGroup1.Items[0].OnClick := RzGroup1Items0Click;
end;

procedure TForm1.RzGroup1Items0Click(Sender: TObject);
begin
  RzGroup1.Items[1].Visible := not RzGroup1.Items[1].Visible;
end;

我把RzGroup的属性ShowItemSelection 设为true; ......怎么对RzGroup的属性ShowItemSelection 进行释放?每次我点击item；再次点击就没有反应了? 如图：

[落幕年代]

引用 2 楼 bdmh 的回复:

每一项里面还可以继续添加子项

不可以添加

[s11ss]

procedure TForm1.FormCreate(Sender: TObject); begin RzGroup1.ShowItemSelection := True; RzGroup1.Items.Clear; RzGroup1.Items.Add.Caption := 'Item0'; with RzGroup1.Items.Add do begin Caption := 'Item1'; IndentLevel:=1; Visible := False end; RzGroup1.OnMouseDown := RzGroup1MouseDown end; procedure TForm1.RzGroup1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var Item: Integer; begin Item := RzGroup1.ItemAtPos(Point(X,Y)); if Item = 0 then begin RzGroup1.Items[0].Selected := True; RzGroup1.Items[1].Visible := not RzGroup1.Items[1].Visible; end end;

[只搬一块砖]

请问下rc4中的控件怎样在delphin中使用