我要帮助

Question

我是一个delphi的初学者，我现在想用treeview这个组件，但是我没有这样的例子可以借鉴，能否给一个这样的例子，我万分感谢的！我真的挺急得！帮忙呀！

Answer 1

procedure TForm1.TreeView1Click(Sender: TObject);
begin
  if form1.TreeView1.SelectionCount=1 then
  begin
    if form1.TreeView1.Selected.Text='nbv' then
    begin
      form2.show;
      form2.FormStyle:=fsstayontop;
    end;
  end
end;

Answer 2

添加：procedure TPublicClass.TreeViewAddT(MFieldStr, DFieldStr,
  TableNameValue: String; Sender: TTreeView; ImageValue: TImageList);
var
  PNode , CNode : TTreeNode;
  I : Integer;
begin
  Sender.Items.Clear;
  Sender.Images := ImageValue;
  With DataModuleFrm.Temp1ADOQuery do
  begin
    if Active then
      Active := False;
    SQL.Clear;
    SQL.Add('Select Distinct ' + MFieldStr + ' from ' + TableNameValue);
    Prepared;
    Open;
    First;
    While Not Eof do
    begin
      PNode := Sender.Items.AddChild(Nil,Trim(FieldByName(MFieldStr).AsString));
      PNode.ImageIndex := 0;
      if PNode.Level = 1 then
      begin
        PNode.ImageIndex := 2;
        Pnode.StateIndex := 4;
      end; {}
      Next;
    end;
  end;
  With DataModuleFrm.LSB_ADOQuery do
  begin
    Sender.SetFocus;
    For I := Sender.Items.Count -1 DownTo 0 do
    begin
      PNode := TTreeNode.Create(Nil);
      PNode := Sender.Items[I];
      if Active then
        Active := False;
      SQL.Clear;
      SQL.Add('Select ' + DFieldStr + ' from ' + TableNameValue + ' Where ' +
        MFieldStr + ' = ' + #39 + Sender.Items[I].Text + #39);
      Prepared;
      Open;
      First;
      While Not Eof do
      begin
        CNode := Sender.Items.AddChild(PNode,Trim(FieldByName(DFieldStr).AsString));
        CNode.ImageIndex := 1;
        if PNode.Level = 1 then
        begin
          PNode.ImageIndex := 2;
          Pnode.StateIndex := 4;
        end;{}
        Next;
      end;
    end;
  end;
end;
/////----------------
沉沦中..........