Delphi：切换CoolBar的乐队

什么是在TreeView(紫色矩形)中的项目之间切换时更改CoolBar(红色矩形)中的按钮(波段)的有效方法.我想为列表视图中的每个项目使用一组按钮.

感谢您的帮助和建议！

我创建了我需要的CoolBands并将每个分配给TTreeNode的数据指针.然后在TreeView的OnChanging处理程序中,我“记住”当前选中的TreeNode,并在OnChange处理程序中切换CoolBands的可见性：

procedure TProbeerForm.TreeView1Changing(Sender: TObject; Node: TTreeNode;
  var AllowChange: Boolean);
begin
  FOldNode := TreeView1.Selected;
end;

procedure TProbeerForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  TCoolBand(FOldNode.Data).Visible := False;
  TCoolBand(Node.Data).Visible := True;
end;