1樓:所失佛
//這個是treeview,不是listview
//宣告遞迴方法
//procedure aaaaa(mmenu: tmenuitem; nnode: ttreenodes;p_node: ttreenode);
procedure tform1.aaaaa(mmenu: tmenuitem; nnode: ttreenodes;p_node: ttreenode);
vari: integer;
c_node: ttreenode;
begin
for i := 0 to mmenu.count - 1 do
begin
c_node := nnode.addchild(p_node,mmenu.items[i].caption);
aaaaa(mmenu.items[i],nnode,c_node); //遞迴
end;
end;
procedure tform1.button1click(sender: tobject);
vari: integer;
parent_node : ttreenode;
begin
trv.items.clear;
for i:= 0 to mainmenu.items.count-1 do
begin
parent_node := trv.items.add(nil,mainmenu.items[i].caption);
aaaaa(mainmenu.items[i],trv.items, parent_node);
end;
end;
2樓:己聞楣
procedure menuitemstolistview( mi : tmenuitem; lv : tlistview );
vari : integer;
begin
for i := 0 to mi.count - 1 dobegin
lv.additem( mi[i].caption, nil );
menuitemstolistview( mi[i], lv );
end;
end;
呼叫:menuitemstolistview( mainmenu1, listview1 );
如何在Delphi中實現停靠,delphi2007怎麼把懸浮的工具欄弄成停靠的
delphi安裝目錄裡面有demo,自己去找找.delphi2007怎麼把懸浮的工具欄弄成停靠的 選單view desktops default layout delphi中元件的浮動和被停靠的是什麼意思?這是實現拖曳 drag 功能,只有支援浮動的視覺化元件 如item.可以被拖曳,有被停靠屬性的...
某二叉樹的中序遍歷為CBADE,後序遍歷序列為CBEDA,則前序遍歷序列為
某二叉樹的中序遍歷為cbade,後序遍歷序列為cbeda,則前序遍歷序列為abcde。中序遍歷 訪問根節點在左右子樹之間,即左 根 右。後序遍歷 訪問根結點在源左右子樹之後,即左 右 根。由定義可以知道 後序遍歷中最後一個就是樹根結點,即a結點。中序遍歷的根節點前面的節點均為左子樹的節點,所以左子樹...
Delphi6中DBGrid中怎麼得到選定項的行數??
我知道dbgrideh 是可以的,然則dbgrid 沒有試過 tdrawgrid dbgrideh1 row可以獲得當前行號,樓主可以嚐嚐這種辦法,估計行的 來自d5 贊助procedure tobject var i,j integer s string begin if dbgrid1.0 th...