send.~dfm

使用Delphi发短信息程序源代码

object frmSend: TfrmSend
  Left = 238
  Top = 140
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #21457#36865#30701#28040#24687
  ClientHeight = 231
  ClientWidth = 324
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object gbSendSMS: TGroupBox
    Left = 0
    Top = 0
    Width = 324
    Height = 231
    Align = alClient
    TabOrder = 0
    object Label1: TLabel
      Left = 6
      Top = 18
      Width = 78
      Height = 13
      Caption = #25509#25910#25163#26426#21495#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 5
      Top = 42
      Width = 78
      Height = 13
      Caption = #21457#36865#25163#26426#21495#30721
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 7
      Top = 85
      Width = 78
      Height = 13
      Caption = #21457#36865#28040#24687#20869#23481
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object sbSaveRecCode: TSpeedButton
      Left = 210
      Top = 14
      Width = 51
      Height = 21
      Caption = #20445#23384
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000000000000000
        000000001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E000000000000000000000000000000000000
        E05E00001F7C1F7C0000E05EE05EE05EE05EE05EE05EE05EE05EE05EE05EE05E
        E05E00001F7C1F7C0000E05EE05E00000000000000000000000000000000E05E
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        000000001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        1F7C00001F7C1F7C000000000000000000000000000000000000000000000000
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      ParentFont = False
      OnClick = sbSaveRecCodeClick
    end
    object sbDeleteRecCode: TSpeedButton
      Left = 263
      Top = 14
      Width = 50
      Height = 21
      Caption = #21024#38500
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = sbDeleteRecCodeClick
    end
    object lblMsgList: TLabel
      Left = 5
      Top = 64
      Width = 78
      Height = 13
      Caption = #21457#36865#28040#24687#21015#34920
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object sbSaveSendCode: TSpeedButton
      Left = 211
      Top = 37
      Width = 51
      Height = 21
      Caption = #20445#23384
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C1F7C1F7C00000000000000000000000000000000000000000000
        000000001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E0000000000000000000000001F7C1F7C0000
        E05E00001F7C1F7C0000E05EE05E000000000000000000000000000000000000
        E05E00001F7C1F7C0000E05EE05EE05EE05EE05EE05EE05EE05EE05EE05EE05E
        E05E00001F7C1F7C0000E05EE05E00000000000000000000000000000000E05E
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        E05E00001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        000000001F7C1F7C0000E05E00001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C0000
        1F7C00001F7C1F7C000000000000000000000000000000000000000000000000
        000000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C
        1F7C1F7C1F7C}
      ParentFont = False
      OnClick = sbSaveSendCodeClick
    end
    object sbDeleteSendCode: TSpeedButton
      Left = 264
      Top = 37
      Width = 50
      Height = 21
      Caption = #21024#38500
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333333333333333333333333333333FFF33FF333FFF339993370733
        999333777FF37FF377733339993000399933333777F777F77733333399970799
        93333333777F7377733333333999399933333333377737773333333333990993
        3333333333737F73333333333331013333333333333777FF3333333333910193
        333333333337773FF3333333399000993333333337377737FF33333399900099
        93333333773777377FF333399930003999333337773777F777FF339993370733
        9993337773337333777333333333333333333333333333333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      ParentFont = False
      OnClick = sbDeleteSendCodeClick
    end
    object sbSaveMsg: TSpeedButton
      Left = 211
      Top = 61
      Width = 51
      Height = 21
      Caption = #20445#23384
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = #23435#20307
      Font.Style = []
      Glyph.Data = {
        42020000424D4202000000000000420000002800000010000000100000000100
        1000030000000002000000000000000000000000000000000000007C0000E003
        00001F0000001F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C1F7C