ufmain.dfm

这个是DELPHI环境下的收发短信程序的源代码。目前发送短信已经做的很完美了

object Form1: TForm1
  Left = 452
  Top = 190
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 407
  ClientWidth = 378
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 387
    Width = 378
    Height = 20
    Panels = <
      item
        Text = 'SIWENS'#30701#28040#24687#20013#24515
        Width = 130
      end
      item
        Text = #26085#29031#26031#25991#30005#23376#26377#38480#20844#21496'    Tel:[phone]'
        Width = 50
      end>
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 8
    Width = 345
    Height = 161
    Caption = #25509#25910#21306
    TabOrder = 2
    object Label3: TLabel
      Left = 8
      Top = 72
      Width = 57
      Height = 17
      AutoSize = False
      Caption = #26368#26032#20449#24687
    end
    object Memo2: TMemo
      Left = 72
      Top = 24
      Width = 209
      Height = 121
      ReadOnly = True
      TabOrder = 0
    end
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 176
    Width = 345
    Height = 201
    Caption = #21457#36865#21306
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 93
      Width = 65
      Height = 19
      AutoSize = False
      Caption = #28040#24687#20869#23481
    end
    object Label2: TLabel
      Left = 8
      Top = 28
      Width = 57
      Height = 25
      AutoSize = False
      Caption = #25163#26426#21495#30721
    end
    object Memo1: TMemo
      Left = 72
      Top = 56
      Width = 209
      Height = 89
      TabOrder = 1
      OnKeyDown = Memo1KeyDown
    end
    object Edit1: TEdit
      Left = 72
      Top = 24
      Width = 209
      Height = 21
      AutoSize = False
      TabOrder = 0
    end
    object BitBtn1: TBitBtn
      Left = 200
      Top = 160
      Width = 81
      Height = 33
      Caption = #21457#36865
      TabOrder = 2
      OnClick = BitBtn1Click
      Kind = bkYes
    end
    object BitBtn2: TBitBtn
      Left = 72
      Top = 160
      Width = 81
      Height = 33
      Caption = #28165#38500
      TabOrder = 3
      OnClick = BitBtn2Click
      Kind = bkCancel
    end
  end
  object MainMenu1: TMainMenu
    Left = 144
    Top = 65520
    object N3: TMenuItem
      Caption = #31995#32479
      object N4: TMenuItem
        Caption = #36864#20986
        OnClick = N4Click
      end
    end
    object N1: TMenuItem
      Caption = #35774#32622
      object N2: TMenuItem
        Caption = #21442#25968#35774#32622
        OnClick = N2Click
      end
    end
    object N5: TMenuItem
      Caption = #24110#21161
      object N6: TMenuItem
        Caption = #20851#20110'...'
        OnClick = N6Click
      end
    end
  end
  object Timer1: TTimer
    Interval = 3000
    OnTimer = Timer1Timer
    Left = 280
    Top = 65520
  end
end