unit1.dfm

多线程发送和接收短信

object FM_Main: TFM_Main
  Left = 211
  Top = 154
  Width = 777
  Height = 345
  Caption = #30701#20449#25910#21457'Demo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 16
    Top = 16
    Width = 393
    Height = 289
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #21457#36865#30701#20449
      object Label1: TLabel
        Left = 16
        Top = 160
        Width = 264
        Height = 13
        Caption = #30701#20449#38271#24230#20026#25903#25345'50'#20010#27721#23383#65292#36229#38271#21518#35831#25130#21462#20877#21457#36865#12290
      end
      object SpeedButton1: TSpeedButton
        Left = 320
        Top = 64
        Width = 49
        Height = 65
        Caption = #21457#36865
        OnClick = SpeedButton1Click
      end
      object Label2: TLabel
        Left = 19
        Top = 13
        Width = 60
        Height = 13
        Caption = #25163#26426#21495#30721#65306
      end
      object Label3: TLabel
        Left = 200
        Top = 13
        Width = 36
        Height = 13
        Caption = #31471#21475#65306
      end
      object M_SMS: TMemo
        Left = 16
        Top = 40
        Width = 289
        Height = 113
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        MaxLength = 100
        TabOrder = 0
      end
      object ComboBox_Tel: TComboBox
        Left = 80
        Top = 9
        Width = 113
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        TabOrder = 1
      end
      object ComboBox2: TComboBox
        Left = 240
        Top = 8
        Width = 65
        Height = 21
        Enabled = False
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 2
        Text = 'COM1'
        Items.Strings = (
          'COM1'
          'COM2')
      end
    end
    object TabSheet2: TTabSheet
      Caption = #35843#35797#20449#24687
      ImageIndex = 1
      object RedSky: TRedSky
        Left = 0
        Top = 0
        Width = 385
        Height = 261
        ParentColor = False
        ParentFont = False
        Align = alClient
        TabOrder = 0
        OnDestroy = RedSkyDestroy
        OnComReceiveSMS = RedSkyComReceiveSMS
        OnSendMessageFailed = RedSkySendMessageFailed
        OnSendMessageResult = RedSkySendMessageResult
        OnDeleteSucceed = RedSkyDeleteSucceed
        OnDeleteError = RedSkyDeleteError
        OnReadAll = RedSkyReadAll
        ControlData = {
          545046300754526564536B7906526564536B79044C656674020003546F700200
          055769647468038101064865696768740305010D416374697665436F6E74726F
          6C070A4D5F436F6D4576656E740743617074696F6E0606526564536B7905436F
          6C6F720709636C42746E466163650C466F6E742E43686172736574070E474232
          3331325F434841525345540A466F6E742E436F6C6F72070C636C57696E646F77
          546578740B466F6E742E48656967687402F309466F6E742E4E616D6512020000
          008B5B534F0A466F6E742E5374796C650B000E4F6C644372656174654F726465
          72080D506978656C73506572496E636802600A54657874486569676874020D00
          00}
      end
    end
  end
  object GroupBox1: TGroupBox
    Left = 424
    Top = 16
    Width = 329
    Height = 289
    Caption = #25910#21457#20449#24687
    TabOrder = 1
    object Memo1: TMemo
      Left = 2
      Top = 15
      Width = 325
      Height = 272
      Align = alClient
      ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
      TabOrder = 0
    end
  end
  object Timer_Init_Gsm_Connected: TTimer
    Enabled = False
    OnTimer = Timer_Init_Gsm_ConnectedTimer
    Left = 328
    Top = 184
  end
end