u_dir.dfm

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

object f_dir: Tf_dir
  Left = 364
  Top = 142
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #25351#23450#26085#35760#36335#24452
  ClientHeight = 168
  ClientWidth = 137
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object DirectoryListBox1: TDirectoryListBox
    Left = 0
    Top = 21
    Width = 137
    Height = 116
    Align = alCustom
    Ctl3D = False
    ItemHeight = 16
    ParentCtl3D = False
    TabOrder = 0
    OnChange = DirectoryListBox1Change
  end
  object DriveComboBox1: TDriveComboBox
    Left = 0
    Top = 0
    Width = 137
    Height = 19
    Ctl3D = False
    DirList = DirectoryListBox1
    ParentCtl3D = False
    TabOrder = 1
  end
  object Button1: TButton
    Left = 9
    Top = 142
    Width = 52
    Height = 23
    Caption = #30830#23450
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 77
    Top = 142
    Width = 52
    Height = 23
    Caption = #21462#28040
    TabOrder = 3
    OnClick = Button2Click
  end
end