sendcountfrm.dfm

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

object frmSendCount: TfrmSendCount
  Left = 218
  Top = 231
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = #36755#20837#30701#20449#20869#23481
  ClientHeight = 222
  ClientWidth = 357
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 12
  object SBOK: TSpeedButton
    Left = 264
    Top = 14
    Width = 81
    Height = 25
    Caption = #30830#23450
    OnClick = SBOKClick
  end
  object SBExit: TSpeedButton
    Left = 264
    Top = 62
    Width = 81
    Height = 25
    Caption = #21462#28040
    OnClick = SBExitClick
  end
  object GroupBox1: TGroupBox
    Left = 14
    Top = 9
    Width = 234
    Height = 199
    TabOrder = 0
    object Label2: TLabel
      Left = 19
      Top = 27
      Width = 48
      Height = 12
      Caption = #32852#31995#20154#65306
    end
    object Label1: TLabel
      Left = 9
      Top = 57
      Width = 60
      Height = 12
      Caption = #30701#20449#20869#23481#65306
    end
    object L1: TLabel
      Left = 162
      Top = 169
      Width = 54
      Height = 12
      Caption = #65288'0/140'#65289
      Font.Charset = GB2312_CHARSET
      Font.Color = clRed
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object SpeedButton1: TSpeedButton
      Left = 194
      Top = 22
      Width = 23
      Height = 22
      Hint = #36873#25321#32852#31995#20154
      Caption = #8230
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton1Click
    end
    object MCount: TMemo
      Left = 71
      Top = 57
      Width = 148
      Height = 105
      TabOrder = 0
      OnKeyPress = MCountKeyPress
    end
    object edPhone: TIdComboBox
      Left = 72
      Top = 23
      Width = 116
      Height = 20
      Style = csDropDownList
      ItemHeight = 12
      TabOrder = 1
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 264
    Top = 112
  end
end