程式師世界 >> 編程語言 >> 更多編程語言 >> Delphi >> TreeView的使用

TreeView的使用

編輯：Delphi

TreeVIEw 是一個顯示樹型結構的控件,每一個節點都是一個新類,
　　使用具有代表性
　　每個節點都有四個值:
　　TEXT:顯示文字 Image Index:顯示圖形序號
　　Selected Index:
　　State Index:
　　
　　(1)建立目錄項(本例中使用的TREEVIEW名稱為:TvwTips)
　　
　　增加根目錄下的節點:(節點)
　　var
　　CatNode : TTreeNode; //先建立一個TREEVIEW使用的子對象
　　begin
　　TvwTips.SetFocus; //將焦點置到這個TREEVIEW控件上
　　{ 在根標題下建立一個新的子標題 }
　　CatNode := TvwTips.Items.AddChild(
　　TvwTips.Items.GetFirstNode,'New Category' );
　　CatNode.ImageIndex := 1;
　　CatNode.SelectedIndex := 2;
　　CatNode.EditText; { 允許用戶改變這個標題 }
　　end;
　　
　　增加下一級目錄(內容):
　　var
　　ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用
　　的子對象
　　VersionNum : Integer;
　　begin
　　TvwTips.SetFocus; //將焦點置到這個TREEVIEW控件上
　　VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
　　ParentNode := TvwTips.Selected; { 取出當前的選中節點 }
　　if ParentNode.Level = nlTip then{ Parent cannot be a tip node }
　　ParentNode := TvwTips.Selected.Parent;
　　
　　TipNode := TvwTips.Items.AddChildObject( ParentNode,'New
　　Subject',Pointer( VersionNum ) );
　　TipNode.ImageIndex := 3; { Normal tip bitmap }
　　TipNode.SelectedIndex := 4; { Highlighted tip bitmap }
　　TipNode.MakeVisible; { Move new tip node into vIEw }
　　TipNode.EditText; { Immediately allow user to edit subject }
　　EnableTreeVIEwFunctions( TipNode.Level );
　　RtfTip.Clear;
　　RtfTip.ModifIEd := False;
　　end;
　　
　　(2)說明
　　TvwTips.Items.GetFirstNode 返回TREEVIEW的第一個節點,函數類型為
　　:TTreeNode
　　TvwTips.Items.Count 返回當前TreeVIEw的全部節點數,整數
　　TvwTips.Selected.Level 返回當前選中節點的在目錄樹中的級別,
　　根目錄為0
　　TvwTips.Selected.Parent 返回當前選中節點上級節點,函數類型為
　　:TTreeNode