请教一个treeview问题 |
尚未結案
|
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
|
aquarius
資深會員 發表:3 回覆:347 積分:330 註冊:2003-05-21 發送簡訊給我 |
引言: 我有popmenu A B C -a -a1 -a2 -b -b1 -b2 -c -c1 -c2 请问能不能把这ABC内容用treeview的形式表现出来,然后A,B,C下面的各个子项后面能用checklistbox那样打勾进行挑选的,来设定按扭的使用权限!幫你做一半, 把 MENU 的內容放到 TreeView 中, 剩下的你應該可自己解決... :) procedure TForm1.Button1Click(Sender: TObject); var i, iNode : integer ; sParent, sCap : string ; function FindTreeNode(tv:TTreeView;sCap:string):TTreeNode ; var i : integer ; begin Result:=nil ; for i:=0 to tv.Items.Count-1 do begin if tv.Items[i].Text=sCap then begin Result:=tv.Items[i] ; break ; end ; end ; end ; begin for i:=0 to ComponentCount-1 do begin if Components[i] is TMenuItem then begin sParent:=TMenuItem(Components[i]).Parent.caption ; sCap:=TMenuItem(Components[i]).Caption ; if sParent='' then TreeView1.Items.Add(nil,sCap) else begin TreeView1.Items.AddChild(FindTreeNode(TreeView1,sParent),sCap) ; end ; end ; end ; end;...Aquarius
------
水瓶男的blog: http://791909.blogspot.com |
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
|
Mickey
版主 發表:77 回覆:1882 積分:1390 註冊:2002-12-11 發送簡訊給我 |
|
jtp
初階會員 發表:39 回覆:81 積分:29 註冊:2003-04-20 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |