comfr.dfm

一个delphi使用的传送短信(SMS)到GSM手机的单元及示范.

object Form1: TForm1
  Left = 176
  Top = 115
  Width = 544
  Height = 349
  Caption = 'COM demo'
  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 Splitter1: TSplitter
    Left = 0
    Top = 150
    Width = 536
    Height = 3
    Cursor = crVSplit
    Align = alTop
  end
  object Label1: TLabel
    Left = 0
    Top = 0
    Width = 536
    Height = 13
    Align = alTop
    Caption = 'TX'
  end
  object Label2: TLabel
    Left = 0
    Top = 153
    Width = 536
    Height = 13
    Align = alTop
    Caption = 'RX'
  end
  object Terminal1: TTerminal
    Left = 0
    Top = 13
    Width = 536
    Height = 137
    Align = alTop
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 0
    OnKeyPress = Terminal1KeyPress
    MaxLines = 100
  end
  object Terminal2: TTerminal
    Left = 0
    Top = 166
    Width = 536
    Height = 137
    Align = alClient
    ReadOnly = True
    ScrollBars = ssVertical
    TabOrder = 1
    MaxLines = 100
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 303
    Width = 536
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 20
      end
      item
        Width = 20
      end
      item
        Width = 20
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object Comm1: TComm
    Active = False
    AfterOpen = Comm1AfterOpen
    AfterClose = Comm1AfterClose
    Baudrate = br19200
    Options = []
    DontSynchronize = False
    MonitorEvents = [evBreak, evCts, evDsr, evError, evRing, evRlsd, evRxChar, evRxFlag, evTxEmpty]
    OnRxChar = Comm1RxChar
    DeviceName = 'Com2'
    Left = 224
    Top = 64
  end
end