如何取得Treeview 节点ID

[老子]

我用Node.Data，但是是指针，怎么转成整数呢？？？

[scroing]

接分

[lihuasoft]

procedure TForm1.Button1Click(Sender: TObject);//建树
var
N, NFirst : TTreeNode;
I : integer;
begin
TreeView1.Items.Clear;
NFirst := TreeView1.Items.AddFirst(nil, '全部子节点');
for I := 1 to 10 do
begin
N := TreeView1.Items.AddChild(NFirst, '这是'+IntToStr(I));
N.Data := Pointer( I ); //节点号
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//显示用户选中的节点的节点号
showmessage(IntToStr(Integer(TreeView1.Selected.Data)));
//~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
end;

[lihuasoft]

请楼主把贴子转移至非技术区，可以吗？

[lihuasoft]

错...转移到技术区

[dashi]

路过~~

[gqcwin]

uP