控件问题...请高手帮忙...Treeview 怎么用

来源：百度知道 编辑：UC知道 时间：2024/06/14 16:49:14
这个Treeview控件...怎么使用..帮忙写下代码.越简单越好...
谢谢大家啦..急用...请帮帮我啊..
谢谢大家的帮助...希望代码后面加上注解.越详细越好..我初学..有的地方看不懂.. 这个是vb6.0里的控件...
谢谢!!!

procedure Tcpya_app.FormCreate(Sender: TObject);
begin
datamodule2.tree.close;
datamodule2.tree.sql.clear;
datamodule2.tree.sql.add('select name from plat order by name');
datamodule2.tree.Active:=true;
datamodule2.tree.Open;
while not datamodule2.tree.Eof do
begin
with tv.Items do
begin
MyTreeNode1 := Add(nil,trim(datamodule2.tree.fields[0].asstring));//增加根节点
with datamodule2 do
begin
child.close;
child.SQL.Clear;
child.SQL.Add('select comp from dalei where plat='''+Trim(datamodule2.tree.Fields[0].asstring)+''''+' order by comp');
child.Active:=true;
child.Open;
While Not child.Eof do
begin
TV.Items.AddChild(mytreenode1,trim(child.Fields[0].AsString));
child.Next;
end; end;
datamodule2.t