814123 2018-06-24 03:15 采纳率: 25%
浏览 1050
已采纳

delphi Treeview弹出右键菜单?

图片说明
我只想右键‘222’,‘111’的时候右键菜单才弹出,右键其他文字不弹出菜单,代码如何实现啊?
‘222’,‘111’是分组名称,也行是其他的文字。麻烦老师给点参考。

  • 写回答

2条回答 默认 最新

  • threenewbee 2018-06-24 17:29
    关注

    图片说明

     unit Unit1;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, Menus, ComCtrls;
    
    type
      TForm1 = class(TForm)
        TreeView1: TTreeView;
        PopupMenu1: TPopupMenu;
        N1: TMenuItem;
        N2: TMenuItem;
        N3: TMenuItem;
        procedure TreeView1Change(Sender: TObject; Node: TTreeNode);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
    begin
    
      if (Node.Parent <> nil) and (Node.Parent.Text = 'È«²¿´ý°ì') then
          treeView1.PopupMenu := PopupMenu1
      else
          treeView1.PopupMenu := nil;
    
    end;
    
    end.
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?