Delphi：切换CoolBar的乐队

发布时间：2020-12-15 09:16:42 所属栏目：大数据来源：网络整理

导读：什么是在TreeView(紫色矩形)中的项目之间切换时更改CoolBar(红色矩形)中的按钮(波段)的有效方法.我想为列表视图中的每个项目使用一组按钮. 感谢您的帮助和建议！解决方法我创建了我需要的CoolBands并将每个分配给TTreeNode的数据指针.然后在TreeView的OnCh

什么是在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;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!