ufrmtest.dfm

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

object frmTest: TfrmTest
  Left = 0
  Top = 0
  Caption = 'frmTest'
  ClientHeight = 424
  ClientWidth = 621
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox3: TGroupBox
    Left = 44
    Top = 8
    Width = 185
    Height = 392
    Caption = 'GroupBox3'
    TabOrder = 0
    object lstTest: TListBox
      Left = 24
      Top = 223
      Width = 137
      Height = 134
      ItemHeight = 13
      TabOrder = 0
    end
    object Button3: TButton
      Left = 16
      Top = 15
      Width = 97
      Height = 25
      Caption = #27721#23383#21464#21452#23383#33410
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button1: TButton
      Left = 14
      Top = 46
      Width = 75
      Height = 25
      Caption = #21457#36865#27979#35797
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button4: TButton
      Left = 16
      Top = 77
      Width = 113
      Height = 25
      Caption = #21457#36865#20219#24847#20018
      TabOrder = 3
      OnClick = Button4Click
    end
    object Memo1: TMemo
      Left = 3
      Top = 128
      Width = 179
      Height = 89
      Lines.Strings = (
        'Memo1')
      ScrollBars = ssVertical
      TabOrder = 4
    end
    object Button5: TButton
      Left = 95
      Top = 46
      Width = 73
      Height = 25
      Caption = #23383#33410#21464#20018
      TabOrder = 5
      OnClick = Button5Click
    end
  end
  object Memo2: TMemo
    Left = 235
    Top = 8
    Width = 334
    Height = 369
    Lines.Strings = (
      'Memo2')
    TabOrder = 1
  end
end