help.dfm

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

object F_help: TF_help
  Left = 193
  Top = 195
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #19968#38190#21161#25163
  ClientHeight = 254
  ClientWidth = 442
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox2: TGroupBox
    Left = 0
    Top = 1
    Width = 441
    Height = 254
    Caption = #36873#25321#26631#25991#20214#36335#24452#24182#35774#32622#30701#20449#20013#24515'  '
    TabOrder = 0
    object Label3: TLabel
      Left = 10
      Top = 51
      Width = 102
      Height = 13
      Caption = ' '#26631#20934#25991#20214#36335#24452'         '
    end
    object Label4: TLabel
      Left = 6
      Top = 72
      Width = 75
      Height = 13
      Caption = '  '#20449#24687#20869#23481#65306'   '
    end
    object Label1: TLabel
      Left = 10
      Top = 160
      Width = 75
      Height = 13
      Caption = '  '#26816#27979#32467#26524#65306'   '
    end
    object Label2: TLabel
      Left = 3
      Top = 24
      Width = 102
      Height = 13
      Caption = '   '#30701#20449#20013#24515#21015#34920'       '
    end
    object Button1: TButton
      Left = 280
      Top = 21
      Width = 145
      Height = 21
      BiDiMode = bdRightToLeft
      Caption = #28857#20987#36873#25321#25991#20214#36335#24452'     '
      ParentBiDiMode = False
      TabOrder = 0
      OnClick = Button1Click
    end
    object Edit1: TEdit
      Left = 104
      Top = 48
      Width = 321
      Height = 19
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentCtl3D = False
      ParentShowHint = False
      ReadOnly = True
      ShowHint = True
      TabOrder = 1
      Text = 'Edit1'
    end
    object M1: TMemo
      Left = 8
      Top = 88
      Width = 425
      Height = 65
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        'M1')
      ParentCtl3D = False
      ScrollBars = ssVertical
      TabOrder = 2
      OnChange = M1Change
    end
    object M2: TMemo
      Left = 8
      Top = 176
      Width = 425
      Height = 45
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      Lines.Strings = (
        'M2')
      ParentCtl3D = False
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 3
    end
    object Button2: TButton
      Left = 47
      Top = 226
      Width = 137
      Height = 24
      Caption = #20869#23481#20986#38169#38656#35201#26680#23545'  '
      TabOrder = 4
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 235
      Top = 227
      Width = 137
      Height = 23
      Caption = #30830#23450#23548#20837#21457#36865#20869#23481'  '
      TabOrder = 5
      OnClick = Button3Click
    end
    object Edit2: TEdit
      Left = 104
      Top = 22
      Width = 161
      Height = 19
      Hint = #21452#20987#23548#20837#40664#35748#21015#34920
      Ctl3D = False
      ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
      ParentCtl3D = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      Text = 'Edit2'
      OnChange = Edit2Change
      OnDblClick = Edit2DblClick
    end
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.txt'
    Filter = '*.txt|*.txt|'#25152#26377#25991#20214'|*.*'
    Left = 152
    Top = 96
  end
end