何分多层 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 := RzGroup1Items0…