u_form1.~dfm

很好地delphi书籍源码

object Form1: TForm1
  Left = 135
  Top = 149
  Width = 674
  Height = 390
  Caption = ' '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 193
    Top = 0
    Height = 317
  end
  object ListView1: TListView
    Left = 196
    Top = 0
    Width = 428
    Height = 317
    Align = alClient
    Color = clAqua
    Columns = <
      item
        Caption = #22995#21517
        Width = 60
      end
      item
        Caption = #22995#21035
      end
      item
        Caption = #31867#21035
        Width = 100
      end
      item
        Caption = #24180#40836
      end
      item
        Caption = #29616#29366
      end>
    GridLines = True
    ReadOnly = True
    TabOrder = 0
    ViewStyle = vsReport
  end
  object TreeView1: TTreeView
    Left = 0
    Top = 0
    Width = 193
    Height = 317
    Align = alLeft
    AutoExpand = True
    Color = clInfoBk
    Images = ImageList1
    Indent = 19
    PopupMenu = PopupMenu1
    ReadOnly = True
    TabOrder = 1
    OnClick = TreeView1Click
  end
  object AddPanel: TPanel
    Left = 430
    Top = 22
    Width = 177
    Height = 273
    Caption = #32534#36753#31383#21475
    DragKind = dkDock
    DragMode = dmAutomatic
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlack
    Font.Height = -14
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    Visible = False
    object Label1: TLabel
      Left = 8
      Top = 16
      Width = 28
      Height = 14
      Caption = #22995#21517
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 28
      Height = 14
      Caption = #22995#21035
    end
    object Label3: TLabel
      Left = 8
      Top = 96
      Width = 28
      Height = 14
      Caption = #31867#21035
    end
    object Label4: TLabel
      Left = 8
      Top = 136
      Width = 28
      Height = 14
      Caption = #24180#40836
    end
    object AddOk: TSpeedButton
      Left = 16
      Top = 224
      Width = 49
      Height = 22
      Caption = #28155#21152
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = AddOkClick
    end
    object Cancel: TSpeedButton
      Left = 112
      Top = 224
      Width = 49
      Height = 22
      Caption = #21462#28040
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = CancelClick
    end
    object Label9: TLabel
      Left = 8
      Top = 176
      Width = 28
      Height = 14
      Caption = #29366#20917
    end
    object ModOk: TSpeedButton
      Left = 64
      Top = 224
      Width = 49
      Height = 22
      Caption = #20462#25913
      Flat = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlack
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = ModOkClick
    end
    object NameEdit: TEdit
      Left = 48
      Top = 16
      Width = 97
      Height = 22
      TabOrder = 0
    end
    object SexRG: TRadioGroup
      Left = 48
      Top = 48
      Width = 97
      Height = 33
      Columns = 2
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      Items.Strings = (
        #30007
        #22899)
      ParentFont = False
      TabOrder = 1
    end
    object DutyCB: TComboBox
      Left = 48
      Top = 96
      Width = 97
      Height = 22
      ItemHeight = 14
      TabOrder = 2
      Items.Strings = (
        #34892#25919#20154#21592
        #25945#24072
        #21021#19968
        #21021#20108
        #21021#19977
        #39640#19968
        #39640#20108
        #39640#19977)
    end
    object AgeSE: TSpinEdit
      Left = 48
      Top = 128
      Width = 97
      Height = 23
      MaxValue = 50
      MinValue = 15
      TabOrder = 3
      Value = 20
    end
    object StateCB: TComboBox
      Left = 48
      Top = 168
      Width = 97
      Height = 22
      ItemHeight = 14
      TabOrder = 4
      Items.Strings = (
        #22312#26657' '
        #27605#19994)
    end
  end
  object ToolBar1: TToolBar
    Left = 624
    Top = 0
    Width = 42
    Height = 317
    Align = alRight
    ButtonHeight = 36
    ButtonWidth = 37
    Images = ImageList1
    ShowCaptions = True
    TabOrder = 3
    object AddTButton: TToolButton
      Left = 0
      Top = 2
      Caption = ' '#28155#21152' '
      Enabled = False
      ImageIndex = 1
      Wrap = True
      OnClick = AddMenuClick
    end
    object ModTButton: TToolButton
      Left = 0
      Top = 38
      Caption = #20462#25913
      Enabled = False
      ImageIndex = 2
      Wrap = True
      OnClick = ModMenuClick
    end
    object DelTButton: TToolButton
      Left = 0
      Top = 74
      Caption = #21024#38500
      Enabled = False
      ImageIndex = 3
      Wrap = True
      OnClick = DelMenuClick
    end
    object ExitTButton: TToolButton
      Left = 0
      Top = 110
      Caption = #36864#20986
      ImageIndex = 4
      Wrap = True
      OnClick = ExitMenuClick
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 317
    Width = 666
    Height = 27
    Panels = <>
    SimplePanel = True
  end
  object ImageList1: TImageList
    Left = 216
    Top = 224