uset.dfm

cb下的串口通讯、短信收发（适于初学者）

object Form_Set: TForm_Set
  Left = 530
  Top = 182
  Width = 389
  Height = 297
  BorderIcons = [biSystemMenu, biMinimize]
  Caption = '系统设置'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 16
    Top = 8
    Width = 361
    Height = 145
    Caption = '串口设置'
    TabOrder = 0
    object Label1: TLabel
      Left = 76
      Top = 18
      Width = 53
      Height = 13
      Caption = '端　口：　'
    end
    object Label2: TLabel
      Left = 76
      Top = 45
      Width = 48
      Height = 13
      Caption = '波特率：'
    end
    object Label3: TLabel
      Left = 76
      Top = 72
      Width = 48
      Height = 13
      Caption = '数据位：'
    end
    object Label4: TLabel
      Left = 76
      Top = 96
      Width = 48
      Height = 13
      Caption = '停止位：'
    end
    object Label5: TLabel
      Left = 76
      Top = 120
      Width = 48
      Height = 13
      Caption = '较　验：'
    end
    object ComboBox1: TComboBox
      Left = 144
      Top = 16
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 0
      Text = 'COM1'
      Items.Strings = (
        'COM1'
        'COM2'
        '')
    end
    object ComboBox2: TComboBox
      Left = 144
      Top = 43
      Width = 145
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = '19200'
      Items.Strings = (
        '2400'
        '4800'
        '9600'
        '11200'
        '19200')
    end
    object Edit1: TEdit
      Left = 145
      Top = 69
      Width = 144
      Height = 21
      TabOrder = 2
      Text = '8'
    end
    object Edit2: TEdit
      Left = 145
      Top = 93
      Width = 144
      Height = 21
      TabOrder = 3
      Text = '1'
    end
    object ComboBox3: TComboBox
      Left = 144
      Top = 118
      Width = 147
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = 'NOPARITY'
      Items.Strings = (
        'NOPARITY'
        'ODDPARITY'
        'EVENPARITY'
        'MARKPARITY')
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 160
    Width = 361
    Height = 65
    Caption = '短信中心'
    TabOrder = 1
    object Label6: TLabel
      Left = 39
      Top = 29
      Width = 96
      Height = 13
      Caption = '短信中心号码：'
    end
    object Edit3: TEdit
      Left = 144
      Top = 24
      Width = 145
      Height = 21
      TabOrder = 0
      Text = '8613800200500'
    end
  end
  object Button1: TButton
    Left = 64
    Top = 240
    Width = 75
    Height = 25
    Caption = '确定'
    TabOrder = 2
    OnClick = Button1Click
  end
  object Button2: TButton
    Left = 240
    Top = 240
    Width = 75
    Height = 25
    Caption = '取消'
    TabOrder = 3
    OnClick = Button2Click
  end
end