unit1.dfm

GSM MODEM的收发短信息

object Form1: TForm1
  Left = 224
  Top = 82
  Width = 870
  Height = 429
  Caption = 'GSM Modem '#27979#35797#25910#21457
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 297
    Height = 385
    Caption = #21457#36865
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 16
      Width = 89
      Height = 16
      AutoSize = False
      Caption = #25509#25910#26041#21495#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 16
      Top = 48
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #20449#24687#20013#24515#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 16
      Top = 88
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #21457#36865#20869#23481#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 16
      Top = 343
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #36873#25321#20018#21475#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label8: TLabel
      Left = 58
      Top = 304
      Width = 135
      Height = 23
      AutoSize = False
      Caption = #26410#36830#25509'......'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object SendMsg: TMemo
      Left = 16
      Top = 120
      Width = 257
      Height = 177
      Lines.Strings = (
        #20869#23481)
      TabOrder = 0
    end
    object RecNum: TEdit
      Left = 112
      Top = 15
      Width = 161
      Height = 21
      TabOrder = 1
      Text = '13828936386'
    end
    object InfoCenter: TEdit
      Left = 112
      Top = 45
      Width = 161
      Height = 21
      Color = clScrollBar
      Enabled = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object BtnSend: TButton
      Left = 200
      Top = 88
      Width = 75
      Height = 25
      Caption = #21457#36865
      TabOrder = 3
      OnClick = BtnSendClick
    end
    object ComboBox1: TComboBox
      Left = 96
      Top = 341
      Width = 89
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      ItemIndex = 7
      TabOrder = 4
      Text = 'COM8'
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4'
        'COM5'
        'COM6'
        'COM7'
        'COM8'
        'COM9')
    end
    object BtnOpen: TButton
      Left = 200
      Top = 323
      Width = 73
      Height = 25
      Caption = #25171#24320
      TabOrder = 5
      OnClick = BtnOpenClick
    end
    object BtnClose: TButton
      Left = 200
      Top = 355
      Width = 73
      Height = 25
      Caption = #20851#38381
      TabOrder = 6
      OnClick = BtnCloseClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 328
    Top = 8
    Width = 529
    Height = 385
    Caption = #25509#25910
    TabOrder = 1
    object Label4: TLabel
      Left = 16
      Top = 16
      Width = 89
      Height = 16
      AutoSize = False
      Caption = #21457#36865#26041#21495#30721#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 16
      Top = 48
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #21457#36865#26102#38388#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 16
      Top = 88
      Width = 73
      Height = 16
      AutoSize = False
      Caption = #21457#36865#20869#23481#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object RecMsg: TMemo
      Left = 16
      Top = 120
      Width = 257
      Height = 177
      TabOrder = 0
    end
    object SendNum: TEdit
      Left = 112
      Top = 15
      Width = 161
      Height = 21
      TabOrder = 1
      Text = 'SendNum'
    end
    object InfoCenter2: TEdit
      Left = 112
      Top = 45
      Width = 161
      Height = 21
      TabOrder = 2
      Text = 'InfoCenter2'
    end
    object BtnRce: TButton
      Left = 192
      Top = 320
      Width = 75
      Height = 25
      Caption = #35835#21462
      Enabled = False
      TabOrder = 3
      OnClick = BtnRceClick
    end
    object ListBox1: TListBox
      Left = 288
      Top = 16
      Width = 225
      Height = 361
      ItemHeight = 13
      TabOrder = 4
      OnMouseDown = ListBox1MouseDown
    end
    object Button2: TButton
      Left = 192
      Top = 352
      Width = 75
      Height = 25
      Caption = #21047#26032#21015#34920
      TabOrder = 5
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 200
      Top = 88
      Width = 75
      Height = 25
      Caption = '2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -32
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = Button3Click
    end
  end
  object MSC: TMSComm
    Left = 301
    Top = 24
    Width = 32
    Height = 32
    OnComm = MSCComm
    ControlData = {
      2143341208000000ED030000ED03000001568A64000006000000080000040000
      00020000802500000000080000000000000000003F00000001000000}
  end
  object Button1: TButton
    Left = 440
    Top = 96
    Width = 75
    Height = 25
    Caption = '1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = Button1Click
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 304
    Top = 64
  end
end