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;delphi 如何知道 Treeview,Listview 当前最上面显示的节点,布布扣,bubuko.com
delphi 如何知道 Treeview,Listview 当前最上面显示的节点
原文：http://www.cnblogs.com/xe2011/p/3884356.html