当前位置:学Delphi网文档资料专题讲解VGScene

vgScene里的TvgTreeView的使用

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2010-09-30 17:04:21

本篇文章主要讲解的是vgScene里的树形控件TvgTreeView的使用!其实vgScene里的TvgTreeView的使用方法和TvgListBox很多地方是相似的,TvgTreeView的节点TvgTreeViewItem和TvgListBox里的TvgListBoxItem一样,上面都可以放置vgScene里的任何控件!这里就写一个简单的TvgTreeView的使用方法:

    function TForm7.GetChildItemCount(vTreeItem: TvgTreeViewItem): Integer;
    var
      I: Integer;
    begin
      Result := 0;
      for I := 0 to vTreeItem.ChildrenCount - 1 do
      begin
        if vTreeItem.Children[I] is TvgTreeViewItem then
          Result := Result + 1;
      end;
    end;

    procedure TForm7.Button1Click(Sender: TObject);
    var
      vTreeItem, vChildItem: TvgTreeViewItem;
      I, J: Integer;
    begin
      TreeView1.BeginUpdate;
      try
        for I := 0 to 5 do
        begin
          vTreeItem := TvgTreeViewItem.Create(vgScene1);
          vTreeItem.Text := '父节点' + Inttostr(I);
          if I mod 2 = 0 then
          begin
            for J := 0 to 9 do
            begin
              vChildItem := TvgTreeViewItem.Create(vgScene1);
              vChildItem.Text := '子节点' + Inttostr(I);
              vTreeItem.AddObject(vChildItem);
            end;
          end;
          TreeView1.AddObject(vTreeItem);
        end;
      finally
        TreeView1.EndUpdate;
      end;
    end;

    procedure TForm7.TreeView1DblClick(Sender: TObject);
    begin
      if TreeView1.Selected = nil then
      begin
        ShowMessage('请选择一个节点');
        Exit;
      end;
      ShowMessage('您选中的节点的名称为' + TreeView1.Selected.Text + #13#10 + '该节点下面有' +
          Inttostr(GetChildItemCount(TreeView1.Selected)) + '个子节点')
    end;

本Demo网站可以下载!

学Delphi网
http://www.xuedelphi.com
问答专区
http://ask.xuedelphi.com
QQ群:48336535
学Delphi网-VGScene讨论群:12985056

Tags:TvgTreeView

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      0%(0)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论