本文整理自网络,侵删。
//定义结构体
TNodeInfoEx = Record
NodeID : Integer;
ParentID : Integer;
end;
PNodeInfoEx = ^TNodeInfoEx;
//向树上加结构体
procedure AddItem(TV:TTreeView);
var
PTreeItemEx:PNodeInfoEx;
begin
New(PTreeItemEx);
PTreeItemEx^.NodeID:=1;
PTreeItemEx^.ParentID:=1;
TV.Items.AddObject(, , Pointer(PTreeItemEx));//把结构体指针加到Items的地址列
end;
在析构树时要把在堆上动态创建的结构体Dispose掉
相关阅读 >>
Delphi windows 编程[15] - 菜单消息: wm_command
老外写的在桌面添加快捷方式(Delphi xe5 android)
Delphi firemonkey处理图形的方式与vcl处理图形的方式大不相同
更多相关阅读请进入《Delphi》频道 >>