setting.dfm

利用手机短信信息实现充值的例子

object Form2: TForm2
  Left = 279
  Top = 117
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #26597#30475
  ClientHeight = 172
  ClientWidth = 438
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label4: TLabel
    Left = 11
    Top = 34
    Width = 60
    Height = 13
    Caption = #20449#24687#20869#23481'    '
  end
  object Label5: TLabel
    Left = 80
    Top = 34
    Width = 36
    Height = 13
    Caption = #65288'0 '#65289' '
  end
  object Label2: TLabel
    Left = 8
    Top = 104
    Width = 117
    Height = 13
    Caption = #21407#25968#25454#25991#20214#36335#24452'           '
  end
  object Label6: TLabel
    Left = 128
    Top = 104
    Width = 36
    Height = 13
    Caption = #65288'0 '#65289' '
  end
  object Label7: TLabel
    Left = 224
    Top = 148
    Width = 42
    Height = 13
    Caption = #21069#32512'      '
  end
  object Label1: TLabel
    Left = 312
    Top = 9
    Width = 33
    Height = 13
    Caption = ' '#36895#24230'  '
  end
  object Label3: TLabel
    Left = 152
    Top = 9
    Width = 39
    Height = 13
    Caption = #36895#29575'     '
  end
  object Label8: TLabel
    Left = 8
    Top = 10
    Width = 36
    Height = 13
    Caption = #31471#21475'    '
  end
  object Label9: TLabel
    Left = 8
    Top = 148
    Width = 90
    Height = 13
    Caption = '  '#33829#19994#20013#24515#21015#34920'    '
  end
  object Memo1: TMemo
    Left = 8
    Top = 48
    Width = 425
    Height = 49
    Ctl3D = False
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    Lines.Strings = (
      'Memo1')
    ParentCtl3D = False
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
    OnChange = Memo1Change
  end
  object Button1: TButton
    Left = 367
    Top = 146
    Width = 49
    Height = 22
    Caption = ' '#30830' '#23450' '
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit2: TEdit
    Left = 8
    Top = 121
    Width = 409
    Height = 19
    Ctl3D = False
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentCtl3D = False
    ReadOnly = True
    TabOrder = 2
    Text = 'Edit2'
    OnChange = Edit2Change
  end
  object Edit4: TEdit
    Left = 256
    Top = 146
    Width = 97
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    MaxLength = 4
    ReadOnly = True
    TabOrder = 3
    Text = 'Edit4'
    OnChange = Edit4Change
  end
  object Edit3: TEdit
    Left = 223
    Top = 98
    Width = 34
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ReadOnly = True
    TabOrder = 4
    Text = 'Edit3'
    Visible = False
  end
  object Edit1: TEdit
    Left = 352
    Top = 5
    Width = 57
    Height = 21
    Ctl3D = True
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ParentCtl3D = False
    TabOrder = 5
    Text = 'Edit1'
    OnChange = Edit1Change
  end
  object ComboBox1: TComboBox
    Left = 192
    Top = 6
    Width = 89
    Height = 21
    ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
    ItemHeight = 13
    ItemIndex = 1
    TabOrder = 6
    Text = '19200'
    OnChange = ComboBox1Change
    Items.Strings = (
      '9600'
      '19200'
      '38400'
      '115200')
  end
  object ComboBox2: TComboBox
    Left = 96
    Top = 146
    Width = 113
    Height = 21
    ItemHeight = 13
    ParentShowHint = False
    ShowHint = False
    Sorted = True
    TabOrder = 7
    Text = 'ComboBox2'
    OnChange = ComboBox2Change
  end
  object ComboBox3: TComboBox
    Left = 40
    Top = 8
    Width = 73
    Height = 21
    ItemHeight = 13
    TabOrder = 8
    Text = #35831#36873#25321
    OnChange = ComboBox3Change
  end
end