ufrmmain.dfm.~113~

用串口发送手机短信 需要GSM Mode设备

object frmMain: TfrmMain
  Left = 0
  Top = 0
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = #30701#20449#25253#35686
  ClientHeight = 386
  ClientWidth = 498
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  FormStyle = fsStayOnTop
  Icon.Data = {
    0000010001001010000000000000680300001600000028000000100000002000
    0000010018000000000000030000000000000000000000000000000000000000
    000000009475948951828846878F519D8B4D9B843C888B4683E8B4D900000000
    0000000000000000000000000000000000ECDAF1806180AC73A6A866A79358A3
    8E51A1954D998F4988C893BB0000000000000000000000000000000000000000
    00D0BDD6654568CA92C5BA7ABC9559A79457A7A961AE9B5798B47EAD00000000
    0000000000000000000000000000000000928294391E38CA98C2C086BCAE78B9
    A770B5AB69AA9859919160860000000000000000000000000000000000000000
    00C4BCBC644F57CDA2B7AD7B99AA7EA5A579A29E69919B6687B890A200000000
    0000000000000000000000000000000000CAC5BC5B4A47977078794D5E765268
    77536B77495F754A59BA999D0000000000000000000000000000000000000000
    00DAD3CA75655FCBA5ABEDC3CEDEC0CDDEC0CDDCB7C1BC979BB3979000000000
    0000000000000000000000000000000000E6D8DC705961C198A7F7CBDCC9A9BA
    CEB1C0E3BFCBB59197CFB6B20000000000000000000000001808090000000000
    00DEC6E68F6E9095628875426878527675547668405C7A5369DEC1D000000000
    00000000010B0004000000000000000000F7D6FF7E5582AE77A6B47DAC916993
    88668B9870937F59770000000000000000080000000000000000000000000000
    00FFF0FF865B80A36A91A77097866183705170916D8B74516B00000000000000
    0000000000000000000000000000000000FFF6FFAB82978751687F4B62B794A8
    A68C9EBD9DB0C4A7B70000000000000001030002001813100B03000000000000
    00000000D1ADA7875753885856FBE0DC00000000000000000000000000000000
    0000000000000000000000000000000000000000E0C0A9895947936658F6DCCE
    000000000000000000000000000000000B0A0000000000000000000000000000
    00000000EFCDB58B5945A17564EAD0C400000000000000000000000000000000
    000000000A0E0C12000000000000000000000000FFEED49D6C56B78978F8DED2
    000000000000000000000000000000000000000000000000040004000000C03F
    0000803F0000803F0000803F0000803F0000803F0000803F0000803D00008033
    0000806F0000807F000080610000C3FF0000C3EF0000C3F30000C3FD0000}
  OldCreateOrder = False
  Position = poScreenCenter
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object imgIcon1: TImage
    Left = 520
    Top = 16
    Width = 41
    Height = 29
    Picture.Data = {
      055449636F6E0000010001001010000000000000680300001600000028000000
      1000000020000000010018000000000000030000000000000000000000000000
      000000000000000000009475948951828846878F519D8B4D9B843C888B4683E8
      B4D9000000000000000000000000000000000000000000ECDAF1806180AC73A6
      A866A79358A38E51A1954D998F4988C893BB0000000000000000000000000000
      00000000000000D0BDD6654568CA92C5BA7ABC9559A79457A7A961AE9B5798B4
      7EAD000000000000000000000000000000000000000000928294391E38CA98C2
      C086BCAE78B9A770B5AB69AA9859919160860000000000000000000000000000
      00000000000000C4BCBC644F57CDA2B7AD7B99AA7EA5A579A29E69919B6687B8
      90A2000000000000000000000000000000000000000000CAC5BC5B4A47977078
      794D5E76526877536B77495F754A59BA999D0000000000000000000000000000
      00000000000000DAD3CA75655FCBA5ABEDC3CEDEC0CDDEC0CDDCB7C1BC979BB3
      9790000000000000000000000000000000000000000000E6D8DC705961C198A7
      F7CBDCC9A9BACEB1C0E3BFCBB59197CFB6B20000000000000000000000001808
      09000000000000DEC6E68F6E9095628875426878527675547668405C7A5369DE
      C1D00000000000000000010B0004000000000000000000F7D6FF7E5582AE77A6
      B47DAC91699388668B9870937F59770000000000000000080000000000000000
      00000000000000FFF0FF865B80A36A91A77097866183705170916D8B74516B00
      0000000000000000000000000000000000000000000000FFF6FFAB8297875168
      7F4B62B794A8A68C9EBD9DB0C4A7B70000000000000001030002001813100B03
      00000000000000000000D1ADA7875753885856FBE0DC00000000000000000000
      0000000000000000000000000000000000000000000000000000E0C0A9895947
      936658F6DCCE000000000000000000000000000000000B0A0000000000000000
      00000000000000000000EFCDB58B5945A17564EAD0C400000000000000000000
      000000000000000000000A0E0C12000000000000000000000000FFEED49D6C56
      B78978F8DED20000000000000000000000000000000000000000000000000400
      04000000C03F0000803F0000803F0000803F0000803F0000803F0000803F0000
      803D000080330000806F0000807F000080610000C3FF0000C3EF0000C3F30000
      C3FD0000}
    Visible = False
  end
  object sBar: TStatusBar
    Left = 0
    Top = 367
    Width = 498
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 50
      end>
  end
  object PageControl1: TPageControl
    Left = 8
    Top = 8
    Width = 481
    Height = 358
    ActivePage = TabSheet2
    TabOrder = 1
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = #26368#36817#21457#20986#30340#20449#24687
      ExplicitLeft = 0
      ExplicitTop = 0
      ExplicitWidth = 0
      ExplicitHeight = 0
      object chkListWait: TCheckListBox
        Left = 3
        Top = 264
        Width = 467
        Height = 63
        ItemHeight = 13
        TabOrder = 0
      end
      object chkList: TCheckListBox
        Left = 3
        Top = 0
        Width = 467
        Height = 258
        ItemHeight = 13
        TabOrder = 1
      end
    end
    object TabSheet2: TTabSheet
      Caption = #21442#25968#37197#32622
      ImageIndex = 1
      object GroupBox1: TGroupBox
        Left = 3
        Top = 3
        Width = 467
        Height = 270
        Caption = #35774#32622
        TabOrder = 0
        object btnComPort: TSpeedButton
          Left = 16
          Top = 16
          Width = 57
          Height = 22
          Caption = #30701#20449#20018#21475
          Flat = True
          OnClick = btnComPortClick
        end
        object btnComBaud: TSpeedButton
          Left = 16
          Top = 43
          Width = 57
          Height = 22
          Caption = #27874'  '#29305'  '#29575
          Flat = True
          OnClick = btnComBaudClick
        end
        object btnMsgCent: TSpeedButton
          Left = 17
          Top = 71
          Width = 57
          Height = 22
          Caption = #30701#20449#20013#24515
          Flat = True
          OnClick = btnMsgCentClick
        end
        object cboMsgPort: TComboBox
          Left = 79
          Top = 19
          Width = 130
          Height = 21
          Style = csDropDownList
          Enabled = False
          ItemHeight = 13
          ItemIndex = 0
          TabOrder = 0
          Text = 'com1'
          OnClick = cboMsgPortClick
          Items.Strings = (
            'com1'
            'com2'
            'com3'
            'com4')
        end
        object cboMsgBaud: TComboBox
          Left = 79
          Top = 46
          Width = 130
          Height = 21
          Style = csDropDownList
          Enabled = False
          ItemHeight = 13
          ItemIndex = 3
          TabOrder = 1
          Text = '9600'
          OnClick = cboMsgBaudClick
          Items.Strings = (
            '1200'
            '2400'
            '4800'
            '9600')
        end
        object LstBoxPhone: TListBox
          Left = 248
          Top = 16
          Width = 177
          Height = 244
          ItemHeight = 13
          TabOrder = 2
        end
        object txtMsgCent: TEdit
          Left = 79
          Top = 73
          Width = 130
          Height = 21
          Enabled = False
          MaxLength = 14
          PopupMenu = PopupMenu1
          TabOrder = 3
          Text = '[phone]'
          OnExit = txtMsgCentExit
          OnKeyPress = txtMsgCentKeyPress
        end
        object GroupBox2: TGroupBox
          Left = 16
          Top = 224
          Width = 193
          Height = 36
          TabOrder = 4
          object btnSave: TBitBtn
            Left = 94
            Top = 6
            Width = 89
            Height = 25
            Caption = #20445#23384#37197#32622
            TabOrder = 0
            OnClick = btnSaveClick
          end
          object btnSetCent: TBitBtn
            Left = 7
            Top = 6
            Width = 78
            Height = 25
            Caption = #35774#32622#20013#24515
            TabOrder = 1
            OnClick = btnSetCentClick
          end
        end
        object GroupBox3: TGroupBox
          Left = 17
          Top = 104
          Width = 192
          Height = 105
          Caption = #28155#21152#20154#21592
          TabOrder = 5
          object Label1: TLabel
            Left = 7
            Top = 22
            Width = 28
            Height = 13
            AutoSize = False
            Caption = #22995#21517
          end
          object Label2: TLabel
            Left = 7
            Top = 50
            Width = 28
            Height = 13
            AutoSize = False
            Caption = #25163#26426
          end
          object btnAddPhone: TSpeedButton
            Left = 7
            Top = 74
            Width = 66
            Height = 22
            Caption = #28155#21152
            Flat = True
            OnClick = btnAddPhoneClick
          end
          object btnDelPhone: TSpeedButton
            Left = 107
            Top = 74
            Width = 65
            Height = 22
            Caption = #21024#38500
            Flat = True
            OnClick = btnDelPhoneClick
          end
          object txtName: TEdit
            Left = 46
            Top = 20
            Width = 131
            Height = 21
            MaxLength = 10
            TabOrder = 0
          end
          object txtPhone: TEdit
            Left = 46
            Top = 47
            Width = 131
            Height = 21
            MaxLength = 11
            TabOrder = 1
            OnKeyPress = txtPhoneKeyPress
          end
        end
      end
      object GroupBox4: TGroupBox
        Left = 3
        Top = 279
        Width = 467
        Height = 50
        TabOrder = 1
        object btnTestMsg: TSpeedButton
          Left = 136
          Top = 9
          Width = 113
          Height = 25
          Caption = #27979#35797#30701#20449
          OnClick = btnTestMsgClick
        end
        object labHint: TLabel
          Left = 255
          Top = 21
          Width = 194
          Height = 13
          AutoSize = False
          Caption = 'labHint'
        end
        object btnCeShiSB: TBitBtn
          Left = 6
          Top = 9
          Width = 85
          Height = 25
          Caption = #27979#35797#35774#22791
          TabOrder = 0
          OnClick = btnCeShiSBClick
        end
      end
    end
  end
  object Button1: TButton
    Left = 576
    Top = 288
    Width = 75
    Height = 25
    Caption = #27979#35797#31383#20307
    TabOrder = 2
    OnClick = Button1Click
  end
  object PopupMenu1: TPopupMenu
    AutoHotkeys = maManual
    Left = 272
    object N11: TMenuItem
      Caption = #31227#21160
      object N1: TMenuItem
        Caption = #21271#20140
        object N86130101125002: TMenuItem
        end
      end
      object N2: TMenuItem
        Caption = #21513#26519
        object TMenuItem
        end
      end
      object N3: TMenuItem
        Caption = #36797#23425
      end
      object N4: TMenuItem
        Caption = #40657#40857#27743
      end
      object N5: TMenuItem
        Caption = #20869#33945#21476
      end
      object N6: TMenuItem
        Caption = #27827#21271
      end
      object N9: TMenuItem
        Caption = #27827#21335
      end
      object N7: TMenuItem
        Caption = #23665#35199
        object TMenuItem
        end
      end
      object N8: TMenuItem
        Caption = #29976#32899
        object TMenuItem
        end
      end
    end
    object N12: TMenuItem
      Caption = '-'
    end
    object N10: TMenuItem
      Caption = #32852#36890
      object N13: TMenuItem
        Caption = #21271#20140
        object mnuMsgCent: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N14: TMenuItem
        Caption = #21513#26519
        object N86130109115001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N15: TMenuItem
        Caption = #36797#23425
        object N86130102405001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N16: TMenuItem
        Caption = #40657#40857#27743
        object N86130109805001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N17: TMenuItem
        Caption = #20869#33945#21476
        object N86130109505001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N18: TMenuItem
        Caption = #27827#21271
        object N86130101805001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N19: TMenuItem
        Caption = #27827#21335
        object N86130107615001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N20: TMenuItem
        Caption = #23665#35199
        object N86130107015001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
      object N21: TMenuItem
        Caption = #29976#32899
        object N86130108795001: TMenuItem
          Caption = '[phone]'
          OnClick = mnuMsgCentClick
        end
      end
    end
  end
  object PopupMenu2: TPopupMenu
    AutoHotkeys = maManual
    Left = 240
    Top = 200
    object N22: TMenuItem
      Caption = #26174#31034#31649#29702#31383#21475
      OnClick = N22Click
    end
    object N23: TMenuItem
      Caption = '-'
    end
    object N24: TMenuItem
      Caption = #36864#20986
      Enabled = False
    end
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 2000
    OnTimer = Timer1Timer
    Left = 232
    Top = 136
  end
end