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