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

📄 monitorcotrol.~dfm

📁 该程序可作为386的接警程序使用
💻 ~DFM
📖 第 1 页 / 共 2 页
字号:
object monitorControl: TmonitorControl
  Left = 290
  Top = 208
  Width = 475
  Height = 326
  AutoSize = True
  BorderIcons = [biSystemMenu]
  BorderWidth = 1
  Caption = '16'#36335#25253#35686#22120#30417#25511
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = Init
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 465
    Height = 297
    ActivePage = TabSheet1
    TabIndex = 0
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #25253#35686#30417#25511
      OnShow = TabSheet1Show
      object Label8: TLabel
        Left = 99
        Top = 247
        Width = 42
        Height = 13
        Caption = #27874#29305#29575
      end
      object Label9: TLabel
        Left = 0
        Top = 247
        Width = 28
        Height = 13
        Caption = #20018#21475
        Color = clBtnFace
        ParentColor = False
      end
      object AlertLight: TLabel
        Left = 432
        Top = 247
        Width = 12
        Height = 13
        Caption = '    '
        Color = clYellow
        ParentColor = False
      end
      object DBGrid1: TDBGrid
        Left = 8
        Top = 4
        Width = 441
        Height = 233
        Color = clBlack
        Constraints.MaxWidth = 1000
        Ctl3D = False
        DataSource = DataSource1
        FixedColor = clBlack
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clLime
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clAqua
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid1DrawColumnCell
      end
      object CbComm: TComboBox
        Left = 32
        Top = 244
        Width = 65
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        TabOrder = 1
        Items.Strings = (
          'COM1'
          'COM2'
          'COM3'
          'COM4'
          'COM5'
          'COM6'
          'COM7'
          'COM8')
      end
      object CbBaudRate: TComboBox
        Left = 139
        Top = 244
        Width = 60
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ItemHeight = 13
        TabOrder = 2
        Items.Strings = (
          '110'
          '300'
          '600'
          '1200'
          '2400'
          '4800'
          '7500'
          '9600'
          '14400'
          '19200'
          '38400'
          '56000'
          '57600'
          '115200')
      end
      object Button5: TButton
        Left = 280
        Top = 244
        Width = 71
        Height = 21
        Caption = #21551#21160#30417#25511
        TabOrder = 3
        OnClick = Button5Click
      end
      object Button6: TButton
        Left = 201
        Top = 244
        Width = 80
        Height = 21
        Caption = #35774#20026#40664#35748#20540
        TabOrder = 4
        OnClick = Button6Click
      end
      object Button7: TButton
        Left = 352
        Top = 244
        Width = 65
        Height = 21
        Caption = #20851#38381#25253#35686
        TabOrder = 5
        OnClick = Button7Click
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25253#35686#35760#24405
      ImageIndex = 1
      OnShow = Button4Click
      object DBGrid2: TDBGrid
        Left = 3
        Top = 48
        Width = 449
        Height = 213
        DataSource = DataSource1
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        ReadOnly = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
      end
      object GroupBox1: TGroupBox
        Left = 8
        Top = 0
        Width = 457
        Height = 41
        TabOrder = 1
        object Label5: TLabel
          Left = 8
          Top = 15
          Width = 65
          Height = 13
          AutoSize = False
          Caption = #25253#35686#32447#36335
        end
        object Label6: TLabel
          Left = 136
          Top = 15
          Width = 33
          Height = 13
          AutoSize = False
          Caption = #26085#26399
        end
        object Label7: TLabel
          Left = 232
          Top = 15
          Width = 33
          Height = 13
          AutoSize = False
          Caption = #20301#32622
        end
        object ComboBox2: TComboBox
          Left = 163
          Top = 11
          Width = 70
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 0
          TabOrder = 0
          Text = #65293#35831#36873#25321#65293
        end
        object ComboBox3: TComboBox
          Left = 259
          Top = 11
          Width = 70
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 0
          TabOrder = 1
          Text = #65293#35831#36873#25321#65293
        end
        object Button2: TButton
          Left = 353
          Top = 12
          Width = 50
          Height = 21
          Caption = #26597#35810
          TabOrder = 2
          OnClick = Button2Click
        end
        object ComboBox1: TComboBox
          Left = 67
          Top = 11
          Width = 70
          Height = 21
          ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
          ItemHeight = 0
          TabOrder = 3
          Text = #65293#35831#36873#25321#65293
        end
        object Button4: TButton
          Left = 406
          Top = 12
          Width = 46
          Height = 21
          Caption = #20840#37096
          TabOrder = 4
          OnClick = Button4Click
        end
      end
    end
    object TabSheet3: TTabSheet
      Caption = #25253#35686#22120#32500#25252
      ImageIndex = 2
      OnShow = WeiHuShow
      object Label1: TLabel
        Left = 32
        Top = 16
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #32534'    '#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 120
        Top = 16
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #20301'      '#32622
      end
      object Label3: TLabel
        Left = 280
        Top = 16
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #32534'    '#21495
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 368
        Top = 16
        Width = 57
        Height = 13
        AutoSize = False
        Caption = #20301'      '#32622
      end
      object CheckBox1: TCheckBox
        Left = 24
        Top = 40
        Width = 57
        Height = 17
        Caption = #31532'01'#21495
        TabOrder = 0
      end
      object Edit1: TEdit
        Left = 80
        Top = 40
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 1
      end
      object Edit2: TEdit
        Left = 80
        Top = 64
        Width = 129
        Height = 21
        ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
        TabOrder = 2
      end
      object CheckBox2: TCheckBox
        Left = 24
        Top = 64
        Width = 57
        Height = 17
        Caption = #31532'02'#21495

⌨️ 快捷键说明

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