setparamfrm.dfm

一个delphi编写的收发短信源码, 使用了Cport控件,很实用

object frmSetComm: TfrmSetComm
  Left = 334
  Top = 243
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = '设置通信参数'
  ClientHeight = 149
  ClientWidth = 278
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object SBOK: TSpeedButton
    Left = 107
    Top = 114
    Width = 65
    Height = 22
    Caption = '确定'
    OnClick = SBOKClick
  end
  object SBExit: TSpeedButton
    Left = 183
    Top = 114
    Width = 65
    Height = 22
    Caption = '取消'
    OnClick = SBExitClick
  end
  object Panel1: TPanel
    Left = 9
    Top = 10
    Width = 259
    Height = 95
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object Label1: TLabel
      Left = 36
      Top = 24
      Width = 60
      Height = 12
      Caption = '通信端口：'
    end
    object Label2: TLabel
      Left = 12
      Top = 58
      Width = 84
      Height = 12
      Caption = '短信中心号码：'
    end
    object CMPort: TComboBox
      Left = 94
      Top = 20
      Width = 145
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 0
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3'
        'COM4'
        'COM5'
        'COM6'
        'COM7'
        'COM8')
    end
    object EdPhone: TEdit
      Left = 95
      Top = 53
      Width = 143
      Height = 20
      TabOrder = 1
    end
  end
end