ffrmmain.dfm

一个不错的短信控件！具体使用方法请仔细研究。

object frmMain: TfrmMain
  Left = 209
  Top = 147
  BorderStyle = bsDialog
  Caption = #30701#20449#25511#20214#31034#20363
  ClientHeight = 456
  ClientWidth = 582
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Label6: TLabel
    Left = 32
    Top = 63
    Width = 48
    Height = 12
    Caption = #21457#36865#25163#26426
  end
  object Label7: TLabel
    Left = 168
    Top = 63
    Width = 48
    Height = 12
    Caption = #30701#20449#20869#23481
  end
  object Label1: TLabel
    Left = 259
    Top = 22
    Width = 48
    Height = 12
    Caption = #30701#20449#20013#24515
  end
  object Label2: TLabel
    Left = 45
    Top = 25
    Width = 24
    Height = 12
    Caption = #31471#21475
  end
  object Label3: TLabel
    Left = 242
    Top = 87
    Width = 24
    Height = 12
    Caption = #25351#20196
  end
  object Label4: TLabel
    Left = 134
    Top = 25
    Width = 24
    Height = 12
    Caption = #36895#29575
  end
  object Label5: TLabel
    Left = 413
    Top = 169
    Width = 48
    Height = 12
    Caption = #25910#21040#25968#25454
  end
  object Label8: TLabel
    Left = 22
    Top = 170
    Width = 120
    Height = 12
    Caption = #21629#20196#25191#34892#32467#26524#21450#28040#24687#65306
  end
  object Label9: TLabel
    Left = 417
    Top = 142
    Width = 120
    Height = 12
    Caption = '[e-mail]'
    Font.Charset = GB2312_CHARSET
    Font.Color = clBlue
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object btnOpenComm: TButton
    Left = 39
    Top = 107
    Width = 96
    Height = 25
    Caption = #25171#24320#31471#21475
    TabOrder = 0
    OnClick = btnOpenCommClick
  end
  object btnSendSMS: TButton
    Left = 344
    Top = 52
    Width = 75
    Height = 25
    Caption = #21457#36865#30701#20449
    TabOrder = 1
    OnClick = btnSendSMSClick
  end
  object btnCloseComm: TButton
    Left = 137
    Top = 106
    Width = 96
    Height = 25
    Caption = #20851#38381#31471#21475
    TabOrder = 2
    OnClick = btnCloseCommClick
  end
  object edtPhone: TEdit
    Left = 87
    Top = 55
    Width = 73
    Height = 20
    TabOrder = 3
    Text = '13386429000'
  end
  object edtSMS: TEdit
    Left = 224
    Top = 55
    Width = 121
    Height = 20
    TabOrder = 4
    Text = #27979#35797#30701#20449
  end
  object cmbComm: TComboBox
    Left = 74
    Top = 21
    Width = 47
    Height = 20
    ItemHeight = 12
    TabOrder = 5
    Text = '1'
    Items.Strings = (
      '1'
      '2'
      '3'
      '4'
      '5'
      '6'
      '7'
      '8'
      '9')
  end
  object edtATCommand: TEdit
    Left = 269
    Top = 82
    Width = 94
    Height = 20
    TabOrder = 6
    Text = 'AT'
  end
  object btnSendATCommand: TButton
    Left = 344
    Top = 79
    Width = 75
    Height = 24
    Caption = #21457#36865#21629#20196
    TabOrder = 7
    OnClick = btnSendATCommandClick
  end
  object cmbSMSCenter: TComboBox
    Left = 314
    Top = 18
    Width = 127
    Height = 20
    ItemHeight = 12
    TabOrder = 8
    Text = '8613010166500'
    Items.Strings = (
      '8613010166500'
      '8613800532500')
  end
  object cmbBaudRate: TComboBox
    Left = 168
    Top = 21
    Width = 85
    Height = 20
    ItemHeight = 12
    TabOrder = 9
    Text = '9600'
    Items.Strings = (
      '110'
      '300'
      '1200'
      '2400'
      '4800'
      '9600'
      '19200'
      '38400'
      '57600'
      '115200'
      '230400'
      '460800'
      '921600')
  end
  object Button2: TButton
    Left = 234
    Top = 106
    Width = 96
    Height = 25
    Caption = #38431#21015#20013#30701#20449#25968#37327
    TabOrder = 10
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 419
    Top = 52
    Width = 123
    Height = 25
    Caption = #21152#20837#21040#24453#21457#30701#20449#38431#21015
    TabOrder = 11
    OnClick = Button3Click
  end
  object chkOpenSendQueue: TCheckBox
    Left = 76
    Top = 85
    Width = 97
    Height = 17
    Caption = #21551#21160#21457#36865#36827#31243
    TabOrder = 12
    OnClick = chkOpenSendQueueClick
  end
  object Button4: TButton
    Left = 419
    Top = 79
    Width = 123
    Height = 25
    Caption = #21152#20837#21040#24453#21457#21629#20196#38431#21015
    TabOrder = 13
    OnClick = Button4Click
  end
  object Button5: TButton
    Left = 332
    Top = 107
    Width = 96
    Height = 25
    Caption = #38431#21015#20013#21629#20196#25968#37327
    TabOrder = 14
    OnClick = Button5Click
  end
  object Button1: TButton
    Left = 446
    Top = 16
    Width = 96
    Height = 25
    Caption = #35774#32622#30701#20449#20013#24515
    TabOrder = 15
    OnClick = Button1Click
  end
  object Button6: TButton
    Left = 287
    Top = 142
    Width = 83
    Height = 25
    Caption = #36864#20986
    TabOrder = 16
    OnClick = Button6Click
  end
  object Button7: TButton
    Left = 175
    Top = 138
    Width = 75
    Height = 25
    Caption = #28165#31354#26174#31034
    TabOrder = 17
    OnClick = Button7Click
  end
  object Panel1: TPanel
    Left = 0
    Top = 186
    Width = 582
    Height = 270
    Align = alBottom
    TabOrder = 18
    object Splitter1: TSplitter
      Left = 309
      Top = 1
      Height = 268
    end
    object memResponses: TMemo
      Left = 1
      Top = 1
      Width = 308
      Height = 268
      Align = alLeft
      ScrollBars = ssBoth
      TabOrder = 0
    end
    object memReceive: TMemo
      Left = 312
      Top = 1
      Width = 269
      Height = 268
      Align = alClient
      ScrollBars = ssBoth
      TabOrder = 1
    end
  end
end