delphi 如何知道 Treeview,Listview 当前最上面显示的节点

如何知道 Treeview,的节点是根节点
 
 
 
procedure TForm1.TreeView1ContextPopup(Sender: TObject; MousePos: TPoint;
  var Handled: Boolean);
begin
    if TreeView1.Selected.IsFirstNode then
       mni_delete.Enabled:=false
    else
    mni_delete.Enabled:=True;
 
end;




posted @ 2014-08-01 10:40  XE2011  阅读(386)  评论(0编辑  收藏  举报