unitmain.~dfm

转发一个关于短信开发例子

object Form1: TForm1
  Left = 641
  Top = 209
  Width = 653
  Height = 515
  Caption = #20122#21830#30701#20449#25511#20214#20351#29992#31034#20363'(Delphi'#29256')'
  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 GroupBox1: TGroupBox
    Left = 16
    Top = 16
    Width = 616
    Height = 57
    Caption = #30701#20449#35774#22791#36830#25509
    TabOrder = 0
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 75
      Height = 13
      Caption = #30701#20449#20013#24515#21495#30721':'
    end
    object Label2: TLabel
      Left = 223
      Top = 24
      Width = 39
      Height = 13
      Caption = #20018#21475#21495':'
    end
    object Label10: TLabel
      Left = 328
      Top = 24
      Width = 48
      Height = 13
      Caption = #27874#29305#29575#65306
    end
    object Edit_smsc: TEdit
      Left = 88
      Top = 19
      Width = 121
      Height = 21
      TabOrder = 0
      Text = '[phone]'
    end
    object Edit_CommPort: TEdit
      Left = 273
      Top = 19
      Width = 39
      Height = 21
      TabOrder = 1
      Text = '1'
    end
    object Button1: TButton
      Left = 464
      Top = 16
      Width = 71
      Height = 25
      Caption = #36830#25509'(&C)'
      TabOrder = 2
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 536
      Top = 16
      Width = 71
      Height = 25
      Caption = #26029#24320'(&D)'
      TabOrder = 3
      OnClick = Button2Click
    end
    object EdBaud: TEdit
      Left = 377
      Top = 19
      Width = 52
      Height = 21
      TabOrder = 4
      Text = '9600'
    end
  end
  object GroupBox2: TGroupBox
    Left = 16
    Top = 96
    Width = 328
    Height = 225
    Caption = #21457#36865#30701#20449
    TabOrder = 1
    object Label3: TLabel
      Left = 24
      Top = 27
      Width = 51
      Height = 13
      Caption = #25163#26426#21495#30721':'
    end
    object Label4: TLabel
      Left = 24
      Top = 56
      Width = 51
      Height = 13
      Caption = #30701#20449#20869#23481':'
    end
    object cb_blink: TCheckBox
      Left = 88
      Top = 188
      Width = 57
      Height = 17
      Caption = #38378#28865
      TabOrder = 0
    end
    object cb_flash: TCheckBox
      Left = 142
      Top = 188
      Width = 57
      Height = 17
      Caption = #20813#25552
      TabOrder = 1
    end
    object Button3: TButton
      Left = 230
      Top = 184
      Width = 75
      Height = 25
      Caption = #21457#36865'(&S)'
      TabOrder = 2
      OnClick = Button3Click
    end
    object Edit_desno: TEdit
      Left = 88
      Top = 24
      Width = 228
      Height = 21
      TabOrder = 3
    end
    object Memo_msg: TMemo
      Left = 88
      Top = 54
      Width = 229
      Height = 112
      Lines.Strings = (
        'Memo_msg')
      TabOrder = 4
    end
  end
  object GroupBox3: TGroupBox
    Left = 352
    Top = 96
    Width = 281
    Height = 225
    Caption = #25509#25910#30701#20449
    TabOrder = 2
    object Edit_recmsg: TMemo
      Left = 8
      Top = 17
      Width = 265
      Height = 152
      Lines.Strings = (
        'Edit_recmsg')
      TabOrder = 0
    end
  end
  object GroupBox4: TGroupBox
    Left = 16
    Top = 328
    Width = 617
    Height = 120
    Caption = #35835#30701#20449
    TabOrder = 3
    object Label5: TLabel
      Left = 19
      Top = 21
      Width = 60
      Height = 13
      Caption = #25105#35201#35835#20986#31532
    end
    object Label6: TLabel
      Left = 119
      Top = 21
      Width = 36
      Height = 13
      Caption = #26465#30701#20449
    end
    object Label7: TLabel
      Left = 19
      Top = 56
      Width = 60
      Height = 13
      Caption = #26469#20449#21495#30721#65306
    end
    object Label8: TLabel
      Left = 19
      Top = 92
      Width = 60
      Height = 13
      Caption = #21457#36865#26102#38388#65306
    end
    object Label9: TLabel
      Left = 231
      Top = 56
      Width = 60
      Height = 13
      Caption = #30701#20449#20869#23481#65306
    end
    object edit_readindex: TEdit
      Left = 82
      Top = 17
      Width = 24
      Height = 21
      TabOrder = 0
      Text = '1'
    end
    object Button4: TButton
      Left = 230
      Top = 14
      Width = 75
      Height = 25
      Caption = #35835#30701#20449
      TabOrder = 1
      OnClick = Button4Click
    end
    object Edit_srcno: TEdit
      Left = 82
      Top = 52
      Width = 121
      Height = 21
      TabOrder = 2
    end
    object Edit_sendtime: TEdit
      Left = 82
      Top = 88
      Width = 121
      Height = 21
      TabOrder = 3
    end
    object memo_readmsg: TMemo
      Left = 294
      Top = 51
      Width = 315
      Height = 59
      Lines.Strings = (
        'memo_readmsg')
      TabOrder = 4
    end
  end
  object alasunsms1: Talasunsms
    Left = 192
    Top = 80
    Width = 32
    Height = 32
    OnReceive = alasunsms1Receive
    ControlData = {
      93B2000048000000030008000BF25747200000005F0065007800740065006E00
      74007800D3030000030008000AF25747E0FFFFFF5F0065007800740065006E00
      74007900D3030000}
  end
end