unit1.pas

这是一个对树进行的动态生成,不需要在表单里输入如何文本,就是通过sql2000数据库里的数据产生树菜单

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, ComCtrls, Menus;

type
  TForm1 = class(TForm)
    TreeView1: TTreeView;
    ADOConnection1: TADOConnection;
    ADOQuery1: TADOQuery;
    MainMenu1: TMainMenu;
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormShow(Sender: TObject);
var
s1:string;
x:integer;
mm:array[0..20] of Tmenuitem;
nd:array[0..20] of Ttreenode;
nd1:Ttreenode;
begin
     treeview1.Items.Clear;
     with adoquery1 do
     begin
        close;
        sql.Clear;
        sql.Text:='select * from sys_menu';
        open;
        while not eof do
        begin
            x:=fieldbyname('zmxhk').asinteger;
            mm[x]:=tmenuitem.create(self);
            mm[x].caption:=trim(fieldbyname('zvalue').asstring);
           // s1:=trim(fieldbyname('zvalue').asstring);
            //nd1:=treeview1.Items.Add(nil,s1);
            if x=1 then
               nd[x]:=treeview1.items.addchild(nil,mm[x].caption)
            else
               nd[x]:=treeview1.items.addchild(nd[x-1],mm[x].Caption);
               next;
        end;
     end;
end;

end.