input_sr_pas.dfm

不错啊

inherited input_sr: Tinput_sr
  Left = 154
  Top = 35
  Caption = 'input_sr'
  ClientHeight = 495
  ClientWidth = 800
  ParentFont = True
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited main_p: TPanel
    Width = 800
    Height = 495
    inherited CoolBar1: TCoolBar
      Width = 798
      Height = 56
      Bands = <
        item
          Control = ToolBar1
          ImageIndex = -1
          MinHeight = 46
          Width = 794
        end>
      inherited ToolBar1: TToolBar
        Width = 781
        Height = 46
        ButtonHeight = 44
        ButtonWidth = 58
        Font.Color = clWhite
        ParentColor = False
        ParentFont = False
        ShowCaptions = True
        inherited ToolButton1: TToolButton
          Caption = #36864' '#20986
        end
        object ToolButton3: TToolButton
          Left = 58
          Top = 0
          Caption = #21024' '#38500'  (F3)'
          ImageIndex = 4
          OnClick = ToolButton3Click
        end
        object ToolButton5: TToolButton
          Left = 116
          Top = 0
          Width = 153
          Caption = 'ToolButton5'
          ImageIndex = 1
          Style = tbsSeparator
        end
        object ToolButton2: TToolButton
          Left = 269
          Top = 0
          Caption = #25910#20837#26597#35810
          ImageIndex = 5
          OnClick = ToolButton2Click
        end
        object ToolButton4: TToolButton
          Left = 327
          Top = 0
          Caption = #25903#20986#26597#35810
          ImageIndex = 2
          OnClick = ToolButton4Click
        end
      end
    end
    inherited Panel1: TPanel
      Top = 57
      Width = 798
      Caption = #24405#20837#37096#38376#25910#20837#25968#25454
      Font.Color = clBlue
    end
    inherited Panel2: TPanel
      Top = 89
      Width = 798
      Height = 405
      object Panel3: TPanel
        Left = 1
        Top = 1
        Width = 796
        Height = 80
        Align = alTop
        Color = clBlack
        TabOrder = 0
        object Label1: TLabel
          Left = 16
          Top = 13
          Width = 65
          Height = 16
          AutoSize = False
          Caption = #20250#35745#24180#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label2: TLabel
          Left = 253
          Top = 13
          Width = 65
          Height = 16
          AutoSize = False
          Caption = #20250#35745#26376#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label3: TLabel
          Left = 496
          Top = 13
          Width = 65
          Height = 16
          AutoSize = False
          Caption = #31185' '#23460#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label4: TLabel
          Left = 16
          Top = 53
          Width = 89
          Height = 16
          AutoSize = False
          Caption = #25910#20837#39033#30446#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label5: TLabel
          Left = 251
          Top = 53
          Width = 65
          Height = 16
          AutoSize = False
          Caption = #37329' '#39069#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlue
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object Label11: TLabel
          Left = 493
          Top = 50
          Width = 203
          Height = 18
          AutoSize = False
          Caption = #24403#21069#39033#30446#65306
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clRed
          Font.Height = -16
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Transparent = True
        end
        object ComboBox1: TComboBox
          Left = 96
          Top = 8
          Width = 145
          Height = 24
          Style = csDropDownList
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ItemHeight = 16
          ParentFont = False
          TabOrder = 0
          OnChange = ComboBox1Change
          OnKeyUp = ComboBox1KeyUp
        end
        object ComboBox2: TComboBox
          Left = 320
          Top = 8
          Width = 145
          Height = 24
          Style = csDropDownList
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ItemHeight = 16
          ParentFont = False
          TabOrder = 1
          OnChange = ComboBox1Change
          OnKeyUp = ComboBox2KeyUp
          Items.Strings = (
            '1'
            '2'
            '3'
            '4'
            '5'
            '6'
            '7'
            '8'
            '9'
            '10'
            '11'
            '12')
        end
        object ComboBox3: TComboBox
          Left = 568
          Top = 8
          Width = 145
          Height = 24
          Style = csDropDownList
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = [fsBold]
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ItemHeight = 16
          ParentFont = False
          TabOrder = 2
          OnChange = ComboBox1Change
          OnKeyUp = ComboBox3KeyUp
        end
        object Edit1: TEdit
          Left = 320
          Top = 50
          Width = 145
          Height = 24
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ImeName = #20013#25991' ('#31616#20307') - '#20116#31508#21152#21152
          ParentFont = False
          TabOrder = 3
          Text = 'Edit1'
          OnKeyPress = Edit1KeyPress
          OnKeyUp = Edit1KeyUp
        end
        object ComboBox4: TComboBox
          Left = 95
          Top = 50
          Width = 145
          Height = 24
          Style = csDropDownList
          Color = clBlack
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWhite
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 16
          ParentFont = False
          TabOrder = 4
          OnChange = ComboBox4Change
          OnKeyUp = ComboBox4KeyDown
        end
      end
      object Panel4: TPanel
        Left = 1
        Top = 81
        Width = 185
        Height = 323
        Align = alLeft
        Color = clBlack
        TabOrder = 1
        object Panel5: TPanel