unit1.dfm

自己写的delphi treeView控件含demo

object Form1: TForm1
  Left = 192
  Top = 133
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 408
    Top = 173
    Width = 14
    Height = 13
    Caption = 'mc'
  end
  object Button1: TButton
    Left = 432
    Top = 80
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 16
    Top = 72
    Width = 75
    Height = 25
    Caption = #21516#32423
    TabOrder = 1
    OnClick = Button2Click
  end
  object Edit2: TEdit
    Left = 432
    Top = 168
    Width = 121
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 2
    Text = 'Edit2'
  end
  object DBtreeView1: TDBtreeView
    Left = 16
    Top = 112
    Width = 241
    Height = 281
    DataIdField = 'dm'
    DataField = 'mc'
    DataSource = DataSource1
    maindatasource = DataSource1
    TreeCodeFormat = '222'
    TreeMaxLevel = 3
    ShowCheckBox = False
    Indent = 19
    TabOrder = 3
    Items.Data = {
      02000000210000000000000000000000FFFFFFFFFFFFFFFF0000000000000000
      086173646661736466190000000000000000000000FFFFFFFFFFFFFFFF000000
      000000000000}
  end
  object cb: TCheckBox
    Left = 496
    Top = 304
    Width = 97
    Height = 17
    Caption = 'cb'
    TabOrder = 4
  end
  object Button3: TButton
    Left = 480
    Top = 232
    Width = 75
    Height = 25
    Caption = 'Button3'
    TabOrder = 5
    OnClick = Button3Click
  end
  object Button4: TButton
    Left = 104
    Top = 72
    Width = 75
    Height = 25
    Caption = #19979#32423
    TabOrder = 6
  end
  object Button5: TButton
    Left = 288
    Top = 200
    Width = 75
    Height = 25
    Caption = 'Button5'
    TabOrder = 7
    OnClick = Button5Click
  end
  object DBGrid1: TDBGrid
    Left = 312
    Top = 280
    Width = 320
    Height = 120
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 8
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'MS Sans Serif'
    TitleFont.Style = []
  end
  object DBEdit1: TDBEdit
    Left = 336
    Top = 112
    Width = 121
    Height = 21
    DataField = 'mc'
    DataSource = DataSource1
    ImeName = #20013#25991' ('#31616#20307') - '#29579#30721#20116#31508#22411'86'#29256
    TabOrder = 9
  end
  object ADOQuery1: TADOQuery
    ConnectionString = 
      'Provider=SQLOLEDB.1;Password=1;Persist Security Info=True;User I' +
      'D=sa;Initial Catalog=sdbm;Data Source=VOYGER'
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'select * from s_menu where userdm='#39'99'#39'  order by dm ')
    Left = 168
    Top = 8
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 136
    Top = 8
  end
end