⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 main.~dfm

📁 使用Delphi发送短信的原码程序,可以直接用,也可以做二次开发
💻 ~DFM
字号:
object Form1: TForm1
  Left = 95
  Top = 104
  BorderStyle = bsDialog
  Caption = #26790#32593#20844#21496#30701#20449#29483' DLL '#28436#31034#31243#24207' TstDem by Delphi6.0'
  ClientHeight = 354
  ClientWidth = 589
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 8
    Top = 328
    Width = 49
    Height = 13
    AutoSize = False
    Caption = #29366#24577#65306
  end
  object GroupBox1: TGroupBox
    Left = 5
    Top = 6
    Width = 316
    Height = 60
    Caption = '1'#12289#36873#25321#31471#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label3: TLabel
      Left = 8
      Top = 25
      Width = 36
      Height = 13
      AutoSize = False
      Caption = #31471#21475#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label4: TLabel
      Left = 136
      Top = 24
      Width = 36
      Height = 14
      AutoSize = False
      Caption = #31867#22411#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object ComboBox1: TComboBox
      Left = 46
      Top = 22
      Width = 75
      Height = 21
      Style = csDropDownList
      Color = clInfoBk
      ItemHeight = 13
      ItemIndex = 0
      TabOrder = 0
      Text = 'COM1'
      Items.Strings = (
        'COM1'
        'COM2'
        'COM3')
    end
    object ComboBox2: TComboBox
      Left = 190
      Top = 22
      Width = 75
      Height = 21
      Style = csDropDownList
      Color = clInfoBk
      ItemHeight = 13
      ItemIndex = 1
      TabOrder = 1
      Text = '2'#21475
      Items.Strings = (
        '1'#21475
        '2'#21475
        '4'#21475
        '8'#21475)
    end
  end
  object GroupBox2: TGroupBox
    Left = 5
    Top = 71
    Width = 316
    Height = 66
    Caption = '2'#12289#21021#20351#21270#31471#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 1
    object BitBtn2: TBitBtn
      Left = 86
      Top = 20
      Width = 139
      Height = 32
      Caption = #21021#20351#21270#20197#19978#31471#21475
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn2Click
    end
  end
  object GroupBox3: TGroupBox
    Left = 5
    Top = 142
    Width = 316
    Height = 110
    Caption = '3'#12289#21457#36865#21442#25968
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 2
    object Label1: TLabel
      Left = 8
      Top = 32
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #25509#21463#25163#26426#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label2: TLabel
      Left = 8
      Top = 62
      Width = 60
      Height = 13
      AutoSize = False
      Caption = #21457#36865#20869#23481#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 88
      Width = 65
      Height = 14
      AutoSize = False
      Caption = #21457#36865#36890#36947#65306
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 216
      Top = 88
      Width = 89
      Height = 13
      AutoSize = False
      Caption = #36890#36947#21495#65292#29366#24577
    end
    object Edit1: TEdit
      Left = 76
      Top = 27
      Width = 139
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      Text = '13'
      OnKeyPress = Edit1KeyPress
    end
    object Edit2: TEdit
      Left = 76
      Top = 58
      Width = 231
      Height = 21
      Color = clInfoBk
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      Text = #27979#35797#20449#24687#65292#24685#21916#21457#36130#65281
    end
    object ComboBox3: TComboBox
      Left = 78
      Top = 86
      Width = 131
      Height = 21
      Style = csDropDownList
      Color = clInfoBk
      ItemHeight = 13
      TabOrder = 2
    end
  end
  object GroupBox4: TGroupBox
    Left = 5
    Top = 260
    Width = 316
    Height = 56
    Caption = '4'#12289#21457#36865#35835#21462#31471#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 3
    object BitBtn3: TBitBtn
      Left = 31
      Top = 17
      Width = 121
      Height = 32
      Caption = #21457#36865#20449#24687
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BitBtn3Click
    end
    object BitBtn4: TBitBtn
      Left = 165
      Top = 16
      Width = 121
      Height = 32
      Caption = #35835#21462#20449#24687
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BitBtn4Click
    end
  end
  object GroupBox5: TGroupBox
    Left = 327
    Top = 6
    Width = 228
    Height = 60
    Caption = '5'#12289#37322#25918#31471#21475
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 4
    object SpeedButton4: TSpeedButton
      Left = 45
      Top = 17
      Width = 139
      Height = 32
      Caption = #37322#25918#31471#21475
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clRed
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton4Click
    end
  end
  object Memo1: TMemo
    Left = 327
    Top = 76
    Width = 228
    Height = 199
    Color = clInfoBk
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '100'#65306#25480#26435#38169#35823'('#26816#27979#36719#20214#29399')'
      '101'#65306#25480#26435#31867#22411#38169#35823'('#26816#27979#36719#20214#29399#31867#22411')'
      '102'#65306#26410#21021#22987#21270#65292#35831#20808#21021#22987#21270
      '103'#65306#21160#24577#25991#20214#38169
      '200'#65306#31471#21475#21495#30721#38169
      '201'#65306#19981#25903#25345#30340#31471#21475
      '202'#65306#20449#24687#36229#38271
      '203'#65306#19981#33021#21457#36865#31354#20449#24687
      '204'#65306#25163#26426#21495#30721#38169
      '205'#65306#35774#22791#38169
      '206'#65306#26816#27979#20013#24515#38169
      '207'#65306#32593#32476#30331#24405#38169
      '208'#65306#35774#32622#26684#24335#38169
      '209'#65306#31995#32479#24537
      '210'#65306#21457#36865#36229#26102
      '5xx'#65306#25805#20316'xx'#21495#31471#21475#38169#35823)
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 5
  end
  object BitBtn1: TBitBtn
    Left = 327
    Top = 279
    Width = 228
    Height = 37
    Caption = #36864#20986#31243#24207
    TabOrder = 6
    OnClick = BitBtn1Click
  end
  object StaticText1: TStaticText
    Left = 64
    Top = 328
    Width = 489
    Height = 17
    AutoSize = False
    BevelKind = bkTile
    TabOrder = 7
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 520
    Top = 40
  end
end

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -