kmbmgl.dfm

这是一个用Delphi和access做的一个treeview控件的小练习 希望大家多指教

object Fkmbmgl: TFkmbmgl
  Left = 310
  Top = 139
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'kmbmgl'
  ClientHeight = 472
  ClientWidth = 442
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesktopCenter
  OnActivate = FormActivate
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 1
    Top = 325
    Width = 437
    Height = 127
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 24
      Top = 57
      Width = 34
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #32534#30721
    end
    object Label2: TLabel
      Left = 24
      Top = 81
      Width = 34
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #21517#31216
    end
    object Label3: TLabel
      Left = 24
      Top = 104
      Width = 35
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #25340#38899
    end
    object Label4: TLabel
      Left = 8
      Top = 33
      Width = 52
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #19978#32423#31185#30446
    end
    object Label5: TLabel
      Left = 8
      Top = 9
      Width = 52
      Height = 13
      Alignment = taRightJustify
      AutoSize = False
      Caption = #31185#30446#31867#21035
    end
    object Edit1: TEdit
      Left = 67
      Top = 6
      Width = 121
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 0
      Text = 'Edit1'
    end
    object Edit2: TEdit
      Left = 67
      Top = 30
      Width = 364
      Height = 20
      Enabled = False
      ReadOnly = True
      TabOrder = 1
      Text = 'Edit2'
    end
    object Edit4: TEdit
      Left = 67
      Top = 78
      Width = 277
      Height = 20
      TabOrder = 2
      Text = 'Edit4'
      OnKeyPress = Edit4KeyPress
    end
    object Edit5: TEdit
      Left = 67
      Top = 102
      Width = 86
      Height = 20
      TabOrder = 3
      Text = 'Edit5'
      OnKeyPress = Edit4KeyPress
    end
    object Edit3: TMaskEdit
      Left = 67
      Top = 54
      Width = 122
      Height = 20
      TabOrder = 4
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 453
    Width = 442
    Height = 19
    Panels = <
      item
        Alignment = taCenter
        Width = 70
      end
      item
        Width = 450
      end>
  end
  object Panel2: TPanel
    Left = 248
    Top = 426
    Width = 184
    Height = 23
    BevelOuter = bvNone
    TabOrder = 1
    Visible = False
    object SBzq: TSpeedButton
      Left = 10
      Top = 1
      Width = 81
      Height = 21
      Caption = #27491#30830
      OnClick = SBzqClick
    end
    object SBfq: TSpeedButton
      Left = 93
      Top = 1
      Width = 81
      Height = 21
      Caption = #25918#24323
      OnClick = SBfqClick
    end
  end
  object TreeView1: TTreeView
    Left = 1
    Top = 3
    Width = 436
    Height = 321
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    HideSelection = False
    Indent = 19
    ParentFont = False
    ReadOnly = True
    RightClickSelect = True
    RowSelect = True
    TabOrder = 3
    OnChange = TreeView1Change
    OnClick = TreeView1Click
    OnExpanded = TreeView1Expanded
  end
  object PopupMenu1: TPopupMenu
    OnPopup = PopupMenu1Popup
    Left = 168
    Top = 40
    object N3: TMenuItem
      Caption = #22686#21152#21516#32423#31185#30446
      Enabled = False
      OnClick = N3Click
    end
    object N4: TMenuItem
      Caption = #22686#21152#19979#32423#31185#30446
      Enabled = False
      OnClick = N4Click
    end
    object N5: TMenuItem
      Caption = '-'
    end
    object N2: TMenuItem
      Caption = #21024#38500#24403#21069#31185#30446
      Enabled = False
      OnClick = N2Click
    end
  end
  object MainMenu1: TMainMenu
    Left = 120
    Top = 40
    object N6: TMenuItem
      Caption = #25805#20316
      object N8: TMenuItem
        Caption = #27983#35272
        Enabled = False
        OnClick = N8Click
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object N7: TMenuItem
        Caption = #22686#25913
        OnClick = N7Click
      end
    end
    object N12: TMenuItem
      Caption = #36755#20986
      object N13: TMenuItem
        Caption = #25171#21360#31185#30446#32534#30721#34920
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Caption = #23548#20986#31185#30446#32534#30721#34920
      end
    end
    object N10: TMenuItem
      Caption = #20851#38381
      OnClick = N10Click
    end
  end
end