当前位置：文江博客话题详情

Delphi：CoolBar的切换频段

发布于 2024-11-18 08:18:28 字数 169 浏览 0 评论 0原文

在此处输入图像描述

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

感谢您的帮助和建议！

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

分開簡單 2024-11-25 08:18:28

我将创建所需的 CoolBand，并将每个 CoolBand 分配给要使用它的 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;

I'd create the CoolBands I'd need and assign each to the Data pointer of the TTreeNode for which it is to be used. Then in the TreeView's OnChanging handler, I'd "remember" the TreeNode that is currently selected and switch visibility on the CoolBands in the OnChange handler:

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;

回复收藏 0 原文

~没有更多了~