^{<noscript id="aovds"></noscript>}<style id="aovds"><tbody id="aovds"><dfn id="aovds"></dfn></tbody></style><source id="aovds"><optgroup id="aovds"></optgroup></source>

TreeView的使用

2019-11-18 18:49:26

字體：大中小

來源：轉(zhuǎn)載

供稿：網(wǎng)友

TreeView 是一個(gè)顯示樹型結(jié)構(gòu)的控件,每一個(gè)節(jié)點(diǎn)都是一個(gè)新類,
使用具有代表性
每個(gè)節(jié)點(diǎn)都有四個(gè)值:
TEXT:顯示文字 Image Index:顯示圖形序號
Selected Index:
State Index:

(1)建立目錄項(xiàng)(本例中使用的TREEVIEW名稱為:TvwTips)

增加根目錄下的節(jié)點(diǎn):(節(jié)點(diǎn))
var
CatNode : TTreeNode; //先建立一個(gè)TREEVIEW使用的子對象
begin
TvwTips.SetFocus; //將焦點(diǎn)置到這個(gè)TREEVIEW控件上
{ 在根標(biāo)題下建立一個(gè)新的子標(biāo)題 }
CatNode := TvwTips.Items.AddChild(
TvwTips.Items.GetFirstNode,'New Category' );
CatNode.ImageIndex := 1;
CatNode.SelectedIndex := 2;
CatNode.EditText; { 允許用戶改變這個(gè)標(biāo)題 }
end;

增加下一級目錄(內(nèi)容):
var
ParentNode, TipNode : TTreeNode; //先建立TREEVIEW使用
的子對象
VersionNum : Integer;
begin
TvwTips.SetFocus; //將焦點(diǎn)置到這個(gè)TREEVIEW控件上
VersionNum := TMenuItem( Sender ).Tag; { Ver num of new tip }
ParentNode := TvwTips.Selected; { 取出當(dāng)前的選中節(jié)點(diǎn) }
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的第一個(gè)節(jié)點(diǎn),函數(shù)類型為
:TTreeNode
TvwTips.Items.Count 返回當(dāng)前TreeView的全部節(jié)點(diǎn)數(shù),整數(shù)
TvwTips.Selected.Level 返回當(dāng)前選中節(jié)點(diǎn)的在目錄樹中的級別,
根目錄為0
TvwTips.Selected.Parent 返回當(dāng)前選中節(jié)點(diǎn)上級節(jié)點(diǎn),函數(shù)類型為
:TTreeNode

上一篇：語法高亮

下一篇：TeamSource使用說明