用下面的代码,删除TreeView的节点怎么不对啊?(0分)

  • 主题发起人 主题发起人 ysp_1984
  • 开始时间 开始时间
Y

ysp_1984

Unregistered / Unconfirmed
GUEST, unregistred user!
point是我已定义的一个全局变量,在TreeView的Mousedown事件中获取值。
procedure Tfrmmain.N47Click(Sender: TObject);
var
Node:Ttreenode;
str:string;
begin
node:=Treeview1.GetNodeAt(point.X,point.Y);
str:='是否要删除'+node.Text;
if Messagebox(0,pchar(str),'提示',MB_OKCANCEL)=idok then
Treeview1.Items.Delete(node);
end;
 
node:=Treeview1.GetNodeAt(point.X,point.Y);
if node <> nil then begin
str:='是否要删除'+node.Text;
if Messagebox(0,pchar(str),'提示',MB_OKCANCEL)=idok then
Treeview1.Items.Delete(node);
end;
 
接受答案了.
 
后退
顶部