delphi中遍歷MainMenu子選單項到ListView中

2022-05-25 06:50:20 字數 1224 閱讀 2272

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...