sendman.dfm

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

object frmSendMan: TfrmSendMan
  Left = 351
  Top = 218
  Width = 348
  Height = 301
  Caption = #32852#31995#20154#36164#26009
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object SBAdd: TSpeedButton
    Left = 232
    Top = 133
    Width = 81
    Height = 25
    Caption = #28155#21152
    OnClick = SBAddClick
  end
  object SBDel: TSpeedButton
    Left = 232
    Top = 178
    Width = 81
    Height = 25
    Caption = #21024#38500
    OnClick = SBDelClick
  end
  object SBExit: TSpeedButton
    Left = 232
    Top = 223
    Width = 81
    Height = 25
    Caption = #36864#20986
    OnClick = SBExitClick
  end
  object Label1: TLabel
    Left = 219
    Top = 15
    Width = 72
    Height = 12
    Caption = #32852#31995#20154#22995#21517#65306
  end
  object Label2: TLabel
    Left = 222
    Top = 65
    Width = 84
    Height = 12
    Caption = #32852#31995#20154#25163#26426#21495#65306
  end
  object LBMan: TListBox
    Left = 11
    Top = 13
    Width = 193
    Height = 249
    ItemHeight = 12
    TabOrder = 0
  end
  object edName: TEdit
    Left = 235
    Top = 32
    Width = 91
    Height = 20
    TabOrder = 1
  end
  object edPhone: TEdit
    Left = 237
    Top = 84
    Width = 90
    Height = 20
    TabOrder = 2
    OnKeyPress = edPhoneKeyPress
  end
end