unit unit1;
inte***ce
uses
windows, messages, sysutils, variants, classes, graphics, controls, forms,
dialogs, comctrls, stdctrls;
type
pnoderec = record
name: string;
point: pointer;
end;
type
tform1 = class(tform)
treeview1: ttreeview;
button1: tbutton;
procedure button1click(sender: tobject);
private
public
end;
varform1: tform1;
implementation
procedure tform1.button1click(sender: tobject);
var pid: integer;
anode: ttreenode;
bnode: ttreenode;
item: pnoderec;
i: integer;
begin
item.name := 'root1';
anode := treeview1.items.addobject(nil, item.name, item.point);
item.name := 'child1';
treeview1.items.addchildobjectfirst(anode, item.name,item.point);
item.name := 'child2';
treeview1.items.addchildobjectfirst(anode, item.name,item.point);
如果要作子子的結點的話，要作乙個遞迴的方法
item.name := 'root2';
bnode := treeview1.items.addobject(nil, item.name, item.point);
item.name := 'child1';
treeview1.items.addchildobjectfirst(bnode, item.name,item.point);
item.name := 'child2';
treeview1.items.addchildobjectfirst(bnode, item.name,item.point);
for i:= 0 to anode.count - 1 do
begin
end;
end;
end.
根據資料庫結構生成TreeView
現在大多數的方法是採用遞迴，但這種操作會頻繁的去select資料庫，降低了執行效率，稍微改動一些，效果會好不少，這裡介紹一種方法，即一次性select出所有資料，然後按照parentid排序，逐條新增到treeview，新增前，先遍歷treeview，查詢他的上一級節點，遍歷treeview可比se...
TreeView的用法，生成檔案目錄樹
還想著自己通過qdir 實現將乙個目錄下的資料夾和檔案顯示到treeview 中。哪知qt本身就有這樣的類qdirmodel，只需下面三行 qdirmodel model new qdirmodel ui treeview setmodel model ui treeview setrootinde...
動態生成樹結構TreeView控制項的使用 原始碼
using system using system.data using system.configuration using system.collections using system.web using system.web.security using system.web.ui usin...