delphi - 我如何在 TreeView 中弹出上下文菜单，但仅在某些特定的树节点中弹出上下文菜单？

Question

我有一个与 TTreeView 关联的 TPopupMenu，但我现在只想在用户单击特定节点时调用(弹出)菜单。那么我如何在 TreeView 中弹出上下文菜单，但仅在某些特定的树节点中弹出上下文菜单？

Answer 1

使用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;