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

📄 untsmscontrol.dfm

📁 短信猫完整开发例子,里面包含全部的字节流码
💻 DFM
📖 第 1 页 / 共 2 页
字号:
object frmControl: TfrmControl
  Left = 212
  Top = 115
  Width = 557
  Height = 556
  BorderIcons = [biSystemMenu, biMinimize]
  BorderWidth = 4
  Caption = #30693#20449#25910#21457#32456#31471
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object sbInfo: TStatusBar
    Left = 0
    Top = 502
    Width = 541
    Height = 19
    Panels = <
      item
        Width = 450
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object pcInfo: TPageControl
    Left = 0
    Top = 0
    Width = 541
    Height = 502
    ActivePage = TabSheet2
    Align = alClient
    TabIndex = 0
    TabOrder = 1
    object TabSheet2: TTabSheet
      Caption = #21457#36865#28040#24687
      ImageIndex = 1
      object Label3: TLabel
        Left = 88
        Top = 31
        Width = 60
        Height = 12
        Caption = #25163#26426#21495#30721#65306
      end
      object Label4: TLabel
        Left = 88
        Top = 56
        Width = 72
        Height = 12
        Caption = #30693#28040#24687#20869#23481#65306
      end
      object lblCurCode: TLabel
        Left = 88
        Top = 262
        Width = 60
        Height = 12
        Caption = #32534#30721#27169#24335#65306
      end
      object edtPhone: TEdit
        Left = 160
        Top = 27
        Width = 273
        Height = 20
        Hint = #23567#28789#36890#21495#30721#21069#24517#39035#21152#21306#21495
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        Text = '15910612481'
      end
      object meoContent: TMemo
        Left = 88
        Top = 80
        Width = 345
        Height = 177
        Lines.Strings = (
          #21271#20140#22025#22797#27427#27426#36814#24744#65281)
        TabOrder = 1
        OnChange = meoContentChange
      end
      object btnSend: TButton
        Left = 358
        Top = 264
        Width = 75
        Height = 25
        Action = ActSend
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object Button6: TButton
        Left = 136
        Top = 312
        Width = 75
        Height = 25
        Caption = 'Button6'
        TabOrder = 3
        OnClick = Button6Click
      end
    end
    object TabSheet4: TTabSheet
      Caption = #35835#21462'.'#21024#38500#28040#24687
      ImageIndex = 3
      object Label17: TLabel
        Left = 100
        Top = 12
        Width = 150
        Height = 12
        Caption = #20849#26377'           '#26465#26410#35835#28040#24687
      end
      object Label18: TLabel
        Left = 100
        Top = 44
        Width = 150
        Height = 12
        Caption = #20849#26377'           '#26465#24050#35835#28040#24687
      end
      object Label19: TLabel
        Left = 340
        Top = 12
        Width = 138
        Height = 12
        Caption = #31532'           '#26465#26410#35835#28040#24687
      end
      object Button3: TButton
        Left = 12
        Top = 6
        Width = 80
        Height = 25
        Action = ActReadUnRead
        TabOrder = 0
      end
      object edtNumber: TEdit
        Left = 129
        Top = 8
        Width = 57
        Height = 20
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 1
      end
      object Memo1: TMemo
        Left = 12
        Top = 72
        Width = 509
        Height = 233
        ReadOnly = True
        ScrollBars = ssVertical
        TabOrder = 2
      end
      object Button4: TButton
        Left = 12
        Top = 40
        Width = 80
        Height = 25
        Action = ActReadReRead
        TabOrder = 3
      end
      object edtNumber2: TEdit
        Left = 129
        Top = 40
        Width = 57
        Height = 20
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 4
      end
      object Button5: TButton
        Left = 284
        Top = 6
        Width = 49
        Height = 25
        Action = ActDelMessage
        TabOrder = 5
      end
      object Edit8: TEdit
        Left = 356
        Top = 8
        Width = 57
        Height = 20
        TabOrder = 6
      end
    end
    object TabSheet3: TTabSheet
      Caption = #31995#32479#35774#32622
      ImageIndex = 2
      object Label1: TLabel
        Left = 12
        Top = 15
        Width = 42
        Height = 12
        Caption = 'COM'#31471#21475
      end
      object Label2: TLabel
        Left = 264
        Top = 115
        Width = 48
        Height = 12
        Caption = #25163#26426#21345#21495
      end
      object SpeedButton1: TSpeedButton
        Left = 481
        Top = 111
        Width = 30
        Height = 21
        Action = ActGetSN
      end
      object Label5: TLabel
        Left = 264
        Top = 147
        Width = 48
        Height = 12
        Caption = #30701#20449#20013#24515
      end
      object SpeedButton2: TSpeedButton
        Left = 481
        Top = 143
        Width = 30
        Height = 21
        Action = ActSetCenter
      end
      object Label7: TLabel
        Left = 264
        Top = 179
        Width = 48
        Height = 12
        Caption = #20449#21495#24378#24230
      end
      object Bevel1: TBevel
        Left = 12
        Top = 39
        Width = 500
        Height = 9
        Shape = bsTopLine
      end
      object Label6: TLabel
        Left = 12
        Top = 203
        Width = 108
        Height = 12
        Caption = #37197#32622#24310#26102'        '#31186
      end
      object SpeedButton7: TSpeedButton
        Left = 448
        Top = 143
        Width = 30
        Height = 21
        Action = ActGetCenter
      end
      object SpeedButton8: TSpeedButton
        Left = 480
        Top = 175
        Width = 30
        Height = 21
        Action = ActGetIntention
      end
      object Label20: TLabel
        Left = 140
        Top = 203
        Width = 108
        Height = 12
        Caption = #25805#20316#24310#26102'        '#31186
      end
      object cbComm: TComboBox
        Left = 68
        Top = 11
        Width = 49
        Height = 20
        Style = csDropDownList
        ItemHeight = 12
        ItemIndex = 3
        TabOrder = 0
        Text = 'COM4'
        OnChange = cbCommChange
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4'
          'COM5'
          'COM6'
          'COM7'
          'COM8'
          'COM9'
          'COM10'
          'COM11'
          'COM12')
      end
      object edtSN: TEdit
        Left = 320
        Top = 111
        Width = 157
        Height = 20
        Color = clBtnFace
        ReadOnly = True
        TabOrder = 1
      end
      object edtCenter: TEdit
        Left = 320
        Top = 143
        Width = 125
        Height = 20
        TabOrder = 2
      end
      object ProgressBar1: TProgressBar
        Left = 320
        Top = 175
        Width = 157
        Height = 20
        Min = 0
        Max = 100
        TabOrder = 3
      end
      object GroupBox4: TGroupBox
        Left = 12
        Top = 103
        Width = 225
        Height = 41
        Caption = #21457#36865#27169#24335
        TabOrder = 4
        object SpeedButton4: TSpeedButton
          Left = 188
          Top = 14
          Width = 30
          Height = 21
          Action = ActSetModel
        end
        object SpeedButton3: TSpeedButton
          Left = 155
          Top = 14
          Width = 30
          Height = 21
          Action = ActGetModel
        end
        object rbText: TRadioButton
          Left = 8
          Top = 16
          Width = 73
          Height = 17
          Caption = 'Text'#27169#24335
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object rbPdu: TRadioButton
          Left = 80
          Top = 16
          Width = 73
          Height = 17
          Caption = 'PDU'#27169#24335
          TabOrder = 1
        end
      end
      object GroupBox5: TGroupBox
        Left = 12
        Top = 151
        Width = 225
        Height = 41
        Caption = #38169#35823#25253#21578#27169#24335
        TabOrder = 5
        object SpeedButton5: TSpeedButton
          Left = 180
          Top = 14
          Width = 30
          Height = 21
          Action = ActSetReport
        end
        object rbFull: TRadioButton
          Left = 16
          Top = 16
          Width = 73
          Height = 17
          Caption = #23436#25972#25253#21578
          Checked = True
          TabOrder = 0
          TabStop = True
        end
        object rbReport: TRadioButton
          Left = 104
          Top = 16
          Width = 73
          Height = 17
          Caption = #32467#35770#25253#21578
          TabOrder = 1
        end
      end
      object Memo2: TMemo
        Left = 12
        Top = 227
        Width = 500
        Height = 238
        ScrollBars = ssHorizontal
        TabOrder = 6
      end
      object CSpinEdit1: TCSpinEdit
        Left = 68
        Top = 199
        Width = 41
        Height = 21
        MaxValue = 30
        MinValue = 5
        TabOrder = 7
        Value = 5
      end
      object CSpinEdit2: TCSpinEdit
        Left = 196
        Top = 199
        Width = 41
        Height = 21
        MaxValue = 30
        MinValue = 10
        TabOrder = 8
        Value = 25
      end
      object GroupBox6: TGroupBox
        Left = 12
        Top = 47
        Width = 500
        Height = 49
        Hint = #36825#37324#20018#21475#21442#25968#65292#21487#20197#25918#21040#31995#32479#35774#32622#20013#65292#36825#37324#27809#26377#20316#22788#29702#12290
        Caption = #20018#21475#21442#25968
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        object Label21: TLabel
          Left = 12
          Top = 19
          Width = 72
          Height = 12
          Caption = #27874#29305#29575#65306'    '
        end
        object Label22: TLabel
          Left = 133
          Top = 20
          Width = 78
          Height = 12
          Caption = #25968#25454#20301#65306'     '
        end
        object Label23: TLabel
          Left = 237
          Top = 20
          Width = 72
          Height = 12
          Caption = #20572#27490#20301#65306'    '
        end
        object Label24: TLabel
          Left = 349
          Top = 20
          Width = 72
          Height = 12
          Caption = #26657#39564#20301#65306'    '
        end
        object combaudrate: TComboBox
          Left = 61
          Top = 15
          Width = 68
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          ItemIndex = 5
          TabOrder = 0
          Text = '9600'
          Items.Strings = (
            '300'
            '600'
            '1200'
            '2400'
            '4800'
            '9600'
            '19200'
            '38400'
            '43000'
            '56000'
            '57600'
            '115200')
        end
        object combyte: TComboBox
          Left = 181
          Top = 16
          Width = 52
          Height = 20
          Style = csDropDownList
          ItemHeight = 12
          ItemIndex = 3
          TabOrder = 1
          Text = '8'#20301

⌨️ 快捷键说明

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