VST1: TVirtualStringTree;
//按钮公用函数，根据不同 标签tag区分，
Screen.Cursor := crHourGlass; //设置屏幕鼠标的形状为crhourGlass with VST1 dotryStart := GetTickCount;  // Start: Cardinal;case (Sender as TButton).Tag of0: // add to rootbeginCount := StrToInt(NodeCountEdit.Text);RootNodeCount := Integer(RootNodeCount) + Count; //TVirtualStringTree的属性，写函数写好添加功能end;1: // add as childif Assigned(FocusedNode) thenbeginCount := StrToInt(NodeCountEdit.Text);ChildCount[FocusedNode] := Integer(ChildCount[FocusedNode]) + Count; //TVirtualStringTree的属性，写函数写好添加子项功能Expanded[FocusedNode] := True;InvalidateToBottom(FocusedNode);end;end;Label1.Caption := Format('Last operation duration: %d ms', [GetTickCount - Start]);//计算耗时毫秒Label3.Caption := Format('Nodes in tree: %d', [VST1.TotalCount]);finallyScreen.Cursor := crDefault;//恢复光标end;-------------------VST1.Clear; //清除VST1.DeleteSelectedNodes;//删除 所选择的项VST1.TreeOptions.PaintOptions + [toShowBackground] //在子集里面添加可以显示背景图------------------beginwith OPD do //TOpenPictureDialogbeginif Execute thenbeginVST1.Background.LoadFromFile(FileName);  //加载背景图片，貌似bmp格式会好些//  VST1.Invalidate //隐藏背景图end;end;
end;----------------
通过TRadioGroup的第二个单选，巧妙地：
with VST2.TreeOptions doif ThemeRadioGroup.ItemIndex = 0 thenPaintOptions := PaintOptions + [toThemeAware]  //添加子集elsePaintOptions := PaintOptions - [toThemeAware];RadioGroup1.Enabled := ThemeRadioGroup.ItemIndex = 1; //巧妙地取为 boolean类型RadioGroup2.Enabled := ThemeRadioGroup.ItemIndex = 1;---------------TCheckImageKind = (  //定义的枚举类型ckLightCheck,     // gray crossckDarkCheck,      // black crossckLightTick,      // gray tick markckDarkTick,       // black tick markckFlat,           // flat images (no 3D border)ckXP,             // Windows XP styleckCustom,         // application defined check imagesckSystem,         // System defined check images.ckSystemFlat      // Flat system defined check images.);VST2.CheckImageKind := TCheckImageKind(CheckMarkCombo.ItemIndex);//通过combobox的值巧妙地取出枚举类型值并赋值给-------------with Sender as TCheckBox, AlignTree.Header doOptions := Options + [hoShowImages];//显示图像Options := Options + [hoVisible]  //可以显示表格 头标题 [coEnabled]是否可以失效ChangeHeaderText; //显示文字或隐藏----------------可以做像预览的效果，当页面上无法完全显示时，可以浮动显示整个字段。--有待分析。Label显示多行字还是不错的，比Memo好看,但后者可以复制操作等。-------------Columns = < //设定里面的每一栏 是否可以点击或高亮显示，--有待分析。itemImageIndex = 1Options = [coDraggable, coEnabled, coResizable, coShowDropMark, coVisible] Position = 0Spacing = -1Width = 200WideText = 'Default drawing'WideHint = 'This column is drawn entirely by the tree.'end