您现在的位置:首页 >> VCL >> VCL >> 内容

根据TreeView的Item动态修改右键弹出菜单(ContextPopup)

时间:2011/9/3 16:22:31 点击:

  核心提示:新建个窗体,拖一个TreeView控件TreeView1,在TreeView1里面新增多个项目,在拖一个PopupMenu控件PopupMenu1,在PopupMenu新增一个MenuItem菜单N1...

新建个窗体,拖一个TreeView控件TreeView1,在TreeView1里面新增多个项目,在拖一个PopupMenu控件PopupMenu1,在PopupMenu新增一个MenuItem菜单N1,然后在TreeView的ContextPopup事件中写如下代码:

procedure TForm15.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
var
  TVNode : TTreeNode;
  TV : TTreeView;
begin
  TV := TTreeView(Sender);
  TVNode := TV.GetNodeAt(MousePos.X, MousePos.Y) ;
  if Assigned(TVNode) then
  begin
    TV.Selected := TVNode;
    N1.Caption := Format('项目: %s',[TVNode.Text]) ;
  end
  else
  begin
    //不弹出菜单
    Handled := true;
  end;
end;

作者:站长 来源:原创
共有评论 0相关评论
发表我的评论
  • 大名:
  • 内容:
本类推荐
  • 没有