关于Treeview的问题?cxj_treeview

Question

嘻嘻~~~~~~~~~~~~~~~~~~~~~
20分就不用再怎么作啦，copy一下算啦
1、2：
procedure Ttdeform.Treeviewchange;
var
   Tree_Node:Ttreenode;
   Tree_Node_1:Ttreenode;
   gcm:string;
   zhangmi:string;
begin
treeview1.Items.Clear;
Treeview1.SortType :=stNone;
treeview1.Enabled :=true;
    treeview1.Color :=16711143;
with RationDataModule do
 begin
   demlkquery1.Close;
   demlkquery1.SQL.Clear ;
   demlkquery1.SQL.Add('select Distinct gcm from T_deml');
   demlkquery1.Open ;
   demlkquery1.First ;
   while not demlkquery1.Eof do
    begin
     gcm:=demlkquery1.fieldbyname('gcm').asstring;
     Tree_Node:=treeview1.Items.Add(nil,'工程名'+gcm);
     demlkquery2.Close;
     demlkquery2.SQL.Clear ;
     demlkquery2.SQL.Add('select Distinct zm from T_deml where gcm=:gcm  order by zm');
     demlkquery2.Parameters[0].Value:=gcm;
     demlkquery2.Open ;
     demlkquery2.First ;
     while not demlkquery2.Eof do
     begin
      zhangmi:=demlkquery2.fieldbyname('zm').asstring;
      Tree_Node_1:=Treeview1.Items.AddChild(Tree_Node,zhangmi);
      demlkquery3.Close;
      demlkquery3.SQL.Clear ;
      demlkquery3.SQL.Add('select * from T_deml where zm=:pzm');
      demlkquery3.Parameters[0].Value:=zhangmi;
      demlkquery3.Open ;
      demlkquery3.First ;
      while not demlkquery3.Eof do
      begin
        TreeView1.Items.AddChild(Tree_Node_1,demlkquery3.fieldbyname('zjbm').asstring+' :'+demlkquery3.fieldbyname('xjmc').asstring);
        demlkquery3.Next;
      end;
      demlkquery2.Next;
     end;
     demlkquery1.Next;
 end;
 end;
end;

Answer 1

3：
Form:
  TPanel1.Client;
  View1.Parent := Panel1;
  View1.Align := alLeft;
  Splitter.Parent := Panel1;//不是TBevel控件，看清楚：）
  Splitter.Align := alLeft;
  Panel2.Parent := Panel1;
  Panel2.align := alClient;
嘻嘻，如果你还不懂的话，嘻嘻
再说吧

Answer 2

嘻嘻上边的；
View   ->TreeView;

Answer 3

分也太少了。
1：
procedure TForm1.SearchNode(const Value: string);
var
  i, j: Integer;
begin
  if Assigned(TreeView1.Selected) then
    j := TreeView1.Selected.Index
  else
    j := 0;  for i := j to TreeView1.Items.Count - 1 do
    if Boolean(Pos(Value, TreeView1.Items[i].Text)) then
    begin
      TreeView1.Selected := TreeView1.Items[i];
      Break;
    end;
end;2:
//增加根结点
TreeView1.Items.AddChild(nil, '根结点');
//增加子结点
TreeView1.Items.AddChild(TreeView1.Items[0], '子结点');
//增加孙结点和增加子结点是一样的3:
左边放一个TreeView,Align属性设为alLeft,再放一个TSplitter, Align属性设为alLeft,再放一个TPanel，Align属性设为alClient