原滋原味,从帮助忠出来的。
你要慢慢找,肯定都能找到的
procedure TForm1.Button1Click(Sender: TObject);var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { remove any existing nodes }
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
{ Add a child node to the node just added }
AddChild(MyTreeNode1,'ChildNode1'); {Add another root node}
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
{Give MyTreeNode2 to a child }
AddChild(MyTreeNode2,'ChildNode2'); {Change MyTreeNode2 to ChildNode2 }
{ and add a child node to it}
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,'ChildNode2a'); {Add another child to ChildNode2, after ChildNode2a }
Add(MyTreeNode2,'ChildNode2b'); {add another root node}
Add(MyTreeNode1, 'RootTreeNode3');
end;end;
删除的例子
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin
if (CheckBox1.Checked) and (Sender is TTreeView) then
begin
with Sender as TTreeView do
begin
Items.Delete(GetNodeAt(X,Y));
end;
end;end;
你要慢慢找,肯定都能找到的
procedure TForm1.Button1Click(Sender: TObject);var
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { remove any existing nodes }
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
{ Add a child node to the node just added }
AddChild(MyTreeNode1,'ChildNode1'); {Add another root node}
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
{Give MyTreeNode2 to a child }
AddChild(MyTreeNode2,'ChildNode2'); {Change MyTreeNode2 to ChildNode2 }
{ and add a child node to it}
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,'ChildNode2a'); {Add another child to ChildNode2, after ChildNode2a }
Add(MyTreeNode2,'ChildNode2b'); {add another root node}
Add(MyTreeNode1, 'RootTreeNode3');
end;end;
删除的例子
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);begin
if (CheckBox1.Checked) and (Sender is TTreeView) then
begin
with Sender as TTreeView do
begin
Items.Delete(GetNodeAt(X,Y));
end;
end;end;
解决方案 »
- 获得当前窗体的DBGrid后导出Excel
- delphi QQ群 93282714
- 数据库查询出来后要使数据相同的就只显示一个呢
- 关于delphi编写QQ聊天监视的问题
- 高分求购 SUIPack 3.94 控件,低一下的版本也行。
- 如何使用SQL-DMO在win2000下管理sql server2000
- 一个关于数据库的问题。
- DELPHI6的ADOQuery控件,关于filter(过滤)的问题?急急急???一定给分??
- 请各位帮帮我。(入门级提问)
- 如何在数据网格中显示下拉组合框
- ----------怎么用"for..to"循环录入Edit1.text到Edit10.text的内容到数据库?--------
- BDE 安装的问题 不能找到MSSQL 为什么啊 我要死掉啦
MyTreeNode1, MyTreeNode2: TTreeNode;
begin
with TreeView1.Items do
begin
Clear; { remove any existing nodes }
MyTreeNode1 := Add(nil, 'RootTreeNode1'); { Add a root node }
{ Add a child node to the node just added }
AddChild(MyTreeNode1,'ChildNode1'); {Add another root node}
MyTreeNode2 := Add(MyTreeNode1, 'RootTreeNode2');
{Give MyTreeNode2 to a child }
AddChild(MyTreeNode2,'ChildNode2'); {Change MyTreeNode2 to ChildNode2 }
{ and add a child node to it}
MyTreeNode2 := TreeView1.Items[3];
AddChild(MyTreeNode2,'ChildNode2a'); {Add another child to ChildNode2, after ChildNode2a }
Add(MyTreeNode2,'ChildNode2b'); {add another root node}
Add(MyTreeNode1, 'RootTreeNode3');
end;end;OK!!!