RzGroupBar

何分多层

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; 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;

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;

来源：博客园

作者：我不是木鱼

链接：https://www.cnblogs.com/blogpro/p/11453389.html