当前位置：首页 → 问答吧 → TreeView不会弄了.

TreeView不会弄了.

时间：2011-09-26

来源：互联网

TreeView2.Items[0].Count

root
aaa
1
2
3
bbb
111
666
ccc
aa
165

我点ccc下面的内容时，如点165,我想取ccc的TreeView2.Items[0].Count

作者: nydns 发布时间: 2011-09-26

TreeView2.Items[0].Count跟你你点165有什么关系

作者: bdmh 发布时间: 2011-09-26

procedure TForm1.tv1Change(Sender: TObject; Node: TTreeNode);
var NoteTree :Integer;
begin
if node.HasChildren then
lbl1.Caption:=IntToStr(node.Count)
else lbl1.Caption:='0';
end;

作者: sunjs96001 发布时间: 2011-09-26

Delphi(Pascal) code


root
  aaa
    1
    2
    3
  bbb
    111
    666
  ccc
    aa
    165

作者: nydns 发布时间: 2011-09-26

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
NoteTree : Integer;
begin
if node.HasChildren then
ShowMessage(IntToStr(Node.Count))
else
ShowMessage('側偟');
end;

procedure TForm1.FormCreate(Sender: TObject);
var
s : String;
begin
s := IntToStr(TreeView1.Items[0].Count);
ShowMessage(s);
end;

作者: asd9981 发布时间: 2011-09-26

TreeView不会弄了.

热门阅读

热门下载