TreeView的使用方法 (2000年12月26日) 

本站更新  分類:   作者:srw  推薦:   閱讀次數:620  
(http://www.codesky.net)  

--------------------------------------------------------------------------------


基本信息:
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