delphi – 如何在树视图中弹出上下文菜单,但只是在某些特定的tre

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

导读：我有一个与TTreeView相关联的TPopupMenu,但我现在只想在用户点击特定节点时调用(弹出)菜单.那么我如何在树视图中弹出上下文菜单,但只是在某些特定的treenodes中？解决方法使用 OnContextPopup 事件中的Handled参数.通过将此参数设置为True,您将禁止显示上

我有一个与TTreeView相关联的TPopupMenu,但我现在只想在用户点击特定节点时调用(弹出)菜单.那么我如何在树视图中弹出上下文菜单,但只是在某些特定的treenodes中？

解决方法

使用 OnContextPopup事件中的Handled参数.通过将此参数设置为True,您将禁止显示上下文菜单.以下代码显示如何从传递到 OnContextPopup事件的光标位置获取TTreeNode,并且只有当您右键单击与顶部不同的TTreeNode时,它才会显示弹出菜单.

procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
  if TreeView1.GetNodeAt(MousePos.X,MousePos.Y) = TreeView1.TopItem then
    Handled := True;
end;

（编辑：李大同）

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