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

📄 ioboardtestunit.~dfm

📁 在Windows 2000或者XP系统下的ISA接口卡测试程序的完整代码
💻 ~DFM
📖 第 1 页 / 共 4 页
字号:
          Font.Style = [fsBold]
          MaxLength = 2
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 6
          Text = '00'
        end
        object EditIn6c: TEdit
          Left = 422
          Top = 19
          Width = 29
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 7
          Text = '000'
        end
        object EditOut6c: TEdit
          Left = 202
          Top = 15
          Width = 39
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          CharCase = ecUpperCase
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 8
          Text = '000'
          OnChange = EditOut1cChange
          OnKeyPress = EditOut1cKeyPress
          OnMouseDown = EditOut1cMouseDown
        end
      end
      object GroupBox7: TGroupBox
        Left = 8
        Top = 344
        Width = 583
        Height = 47
        Caption = 'I/O '#22522#22320#22336' '#65291'7 '#65309#23383#33410#35835#20889#21475#65288#21475#32447#20998#24320#65289#65306
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 6
        object LabelOut7a: TLabel
          Left = 11
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #20889#20837#25968#65306
        end
        object LabelIn7a: TLabel
          Left = 249
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #35835#20986#25968#65306
        end
        object LabelIn7b: TLabel
          Left = 372
          Top = 19
          Width = 11
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelOut7b: TLabel
          Left = 139
          Top = 19
          Width = 9
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelOut7c: TLabel
          Left = 188
          Top = 19
          Width = 9
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object LabelIn7c: TLabel
          Left = 408
          Top = 19
          Width = 11
          Height = 13
          AutoSize = False
          Caption = '='
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object EditOut7a: TEdit
          Left = 60
          Top = 15
          Width = 76
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 8
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 0
          Text = '00000000'
          OnChange = EditOut1aChange
          OnKeyPress = EditOut1aKeyPress
          OnMouseDown = EditOut1aMouseDown
        end
        object EditIn7a: TEdit
          Left = 302
          Top = 19
          Width = 67
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = GB2312_CHARSET
          Font.Color = clGreen
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 8
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 1
          Text = '00000000'
        end
        object BitBtnOut7: TBitBtn
          Left = 458
          Top = 12
          Width = 28
          Height = 28
          Caption = #20889
          TabOrder = 2
          OnClick = BitBtnOut1Click
        end
        object CheckBoxGroup7: TCheckBox
          Left = 522
          Top = 18
          Width = 57
          Height = 17
          Caption = #33258#21160#32452
          TabOrder = 3
        end
        object BitBtnIn7: TBitBtn
          Left = 488
          Top = 12
          Width = 28
          Height = 28
          Caption = #35835
          TabOrder = 4
          OnClick = BitBtnIn1Click
        end
        object EditOut7b: TEdit
          Left = 152
          Top = 15
          Width = 32
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          CharCase = ecUpperCase
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 2
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 5
          Text = '00'
          OnChange = EditOut1bChange
          OnKeyPress = EditOut1bKeyPress
          OnMouseDown = EditOut1bMouseDown
        end
        object EditIn7b: TEdit
          Left = 386
          Top = 19
          Width = 19
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          MaxLength = 2
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 6
          Text = '00'
        end
        object EditIn7c: TEdit
          Left = 422
          Top = 19
          Width = 29
          Height = 16
          BorderStyle = bsNone
          Ctl3D = False
          Font.Charset = ANSI_CHARSET
          Font.Color = clGreen
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentColor = True
          ParentCtl3D = False
          ParentFont = False
          ReadOnly = True
          TabOrder = 7
          Text = '000'
        end
        object EditOut7c: TEdit
          Left = 202
          Top = 15
          Width = 39
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          CharCase = ecUpperCase
          Ctl3D = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clBlack
          Font.Height = -16
          Font.Name = '@System'
          Font.Style = [fsBold]
          MaxLength = 3
          ParentCtl3D = False
          ParentFont = False
          TabOrder = 8
          Text = '000'
          OnChange = EditOut1cChange
          OnKeyPress = EditOut1cKeyPress
          OnMouseDown = EditOut1cMouseDown
        end
      end
    end
    object Panel4: TPanel
      Left = 600
      Top = 1
      Width = 103
      Height = 396
      Align = alRight
      BevelOuter = bvLowered
      BorderWidth = 3
      TabOrder = 1
      object LabelIOBase: TLabel
        Left = 8
        Top = 8
        Width = 83
        Height = 13
        Caption = 'I/O'#22522#22336'(HEX) '#65306
      end
      object LabelCount: TLabel
        Left = 8
        Top = 52
        Width = 70
        Height = 13
        Caption = 'I/O '#20889#35745#25968' '#65306
      end
      object EditIOBase: TEdit
        Left = 8
        Top = 24
        Width = 89
        Height = 24
        BevelInner = bvSpace
        BevelKind = bkFlat
        BevelOuter = bvRaised
        CharCase = ecUpperCase
        Font.Charset = ANSI_CHARSET
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'System'
        Font.Style = [fsBold]
        MaxLength = 4
        ParentFont = False
        TabOrder = 0
        Text = '390'
        OnChange = EditIOBaseChange
        OnKeyPress = EditOut1bKeyPress
      end
      object GroupBox8: TGroupBox
        Left = 4
        Top = 85
        Width = 95
        Height = 307
        Align = alBottom
        Caption = ' '#33258#21160#35835#20889' '
        Ctl3D = True
        ParentCtl3D = False
        TabOrder = 1
        object SpeedButton1: TSpeedButton
          Left = 6
          Top = 16
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #35745#25968#26041#24335
          OnClick = SpeedButton1Click
        end
        object SpeedButton2: TSpeedButton
          Left = 6
          Top = 38
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #38543#26426#26041#24335
          OnClick = SpeedButton2Click
        end
        object SpeedButton3: TSpeedButton
          Left = 6
          Top = 60
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #25195#25551#31227#20301
          OnClick = SpeedButton3Click
        end
        object SpeedButton4: TSpeedButton
          Left = 6
          Top = 82
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #24490#29615#31227#20301
          OnClick = SpeedButton4Click
        end
        object SpeedButton5: TSpeedButton
          Left = 6
          Top = 104
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #22810#28857#31227#20301
          OnClick = SpeedButton5Click
        end
        object SpeedButton6: TSpeedButton
          Left = 6
          Top = 126
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #20301#27979#35797#19968
          OnClick = SpeedButton6Click
        end
        object SpeedButton7: TSpeedButton
          Left = 6
          Top = 148
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #20301#27979#35797#20108
          OnClick = SpeedButton7Click
        end
        object SpeedButton8: TSpeedButton
          Left = 6
          Top = 170
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #20301#27979#35797#19977
          OnClick = SpeedButton8Click
        end
        object LabelInterval: TLabel
          Left = 6
          Top = 260
          Width = 84
          Height = 13
          Caption = #27979#35797#27627#31186#38388#38548#65306
        end
        object SpeedButton9: TSpeedButton
          Left = 6
          Top = 192
          Width = 83
          Height = 20
          GroupIndex = 1
          Caption = #20301#27979#35797#22235
          OnClick = SpeedButton9Click
        end
        object SpeedButton10: TSpeedButton
          Left = 6
          Top = 214
          Width = 83
          Height = 20
          GroupIndex = 1
          Down = True
          Caption = #20572#27490
          OnClick = SpeedButton10Click
        end
        object BitBtnReset: TBitBtn
          Left = 6
          Top = 236
          Width = 83
          Height = 20
          Caption = #25968#25454#22797#20301
          TabOrder = 0
          OnClick = BitBtnResetClick
        end
        object SpinEdit1: TSpinEdit
          Left = 6
          Top = 276
          Width = 83
          Height = 26
          Font.Charset = ANSI_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'System'
          Font.Style = [fsBold]
          MaxValue = 65535
          MinValue = 1
          ParentFont = False
          TabOrder = 1
          Value = 1000
          OnChange = SpinEdit1Change
        end
      end
      object EditCount: TEdit
        Left = 8
        Top = 68
        Width = 89
        Height = 17
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -11
        Font.Name = 'System'
        Font.Style = [fsBold]
        MaxLength = 10
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 2
        Text = '0000000000'
      end
    end
  end
  object Timer1: TTimer
    Enabled = False
    OnTimer = Timer1Timer
    Left = 404
    Top = 239
  end
end

⌨️ 快捷键说明

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