RzGroupBar

何分多层

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

procedure TForm1.RzGroup1Items0Click(Sender: TObject);
begin
  RzGroup1.Items[].Visible := not RzGroup1.Items[].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:=;
    Visible := False
  end;
  RzGroup1.Items[].OnClick := RzGroup1Items0Click;
end;

procedure TForm1.RzGroup1Items0Click(Sender: TObject);
begin
  RzGroup1.Items[].Visible := not RzGroup1.Items[].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:=;
    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 =  then
  begin
    RzGroup1.Items[].Selected := True;
    RzGroup1.Items[].Visible := not RzGroup1.Items[].Visible;
  end
end;