Delphi：切换CoolBar的乐队

Question

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

感谢您的帮助和建议！

Answer 1

我将创建我需要的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;