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

📄 ioboardtestunit.~dfm

📁 在Windows 2000或者XP系统下的ISA接口卡测试程序的完整代码
💻 ~DFM
📖 第 1 页 / 共 4 页
字号:
          Height = 17
          Caption = #33258#21160#32452
          TabOrder = 3
        end
        object BitBtnIn2: TBitBtn
          Left = 488
          Top = 12
          Width = 28
          Height = 28
          Caption = #35835
          TabOrder = 4
          OnClick = BitBtnIn1Click
        end
        object EditOut2b: 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 EditIn2b: 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 EditIn2c: 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 EditOut2c: 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 GroupBox3: TGroupBox
        Left = 8
        Top = 112
        Width = 583
        Height = 47
        Caption = 'I/O '#22522#22320#22336' '#65291'2 '#65309#23383#33410#35835#20889#21475#65288#21475#32447#21512#24182#65289#65306
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 2
        object LabelOut3a: TLabel
          Left = 11
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #20889#20837#25968#65306
        end
        object LabelIn3a: TLabel
          Left = 249
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #35835#20986#25968#65306
        end
        object LabelIn3b: 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 LabelOut3b: 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 LabelOut3c: 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 LabelIn3c: 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 EditOut3a: 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 EditIn3a: 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 BitBtnOut3: TBitBtn
          Left = 458
          Top = 12
          Width = 28
          Height = 28
          Caption = #20889
          TabOrder = 2
          OnClick = BitBtnOut1Click
        end
        object CheckBoxGroup3: TCheckBox
          Left = 522
          Top = 18
          Width = 57
          Height = 17
          Caption = #33258#21160#32452
          TabOrder = 3
        end
        object BitBtnIn3: TBitBtn
          Left = 488
          Top = 12
          Width = 28
          Height = 28
          Caption = #35835
          TabOrder = 4
          OnClick = BitBtnIn1Click
        end
        object EditOut3b: 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 EditIn3b: 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 EditIn3c: 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 EditOut3c: TEdit
          Left = 202
          Top = 17
          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 GroupBox4: TGroupBox
        Left = 8
        Top = 164
        Width = 583
        Height = 47
        Caption = 'I/O '#22522#22320#22336' '#65291'3 '#65309#23383#33410#35835#20889#21475#65288#21475#32447#21512#24182#65289#65306
        Color = clBtnFace
        Ctl3D = True
        ParentColor = False
        ParentCtl3D = False
        TabOrder = 3
        object LabelOut4a: TLabel
          Left = 11
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #20889#20837#25968#65306
        end
        object LabelIn4a: TLabel
          Left = 249
          Top = 20
          Width = 45
          Height = 13
          AutoSize = False
          Caption = #35835#20986#25968#65306
        end
        object LabelIn4b: 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 LabelOut4b: 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 LabelOut4c: 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 LabelIn4c: 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 EditOut4a: 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 EditIn4a: 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 BitBtnOut4: TBitBtn
          Left = 458
          Top = 12
          Width = 28
          Height = 28
          Caption = #20889
          TabOrder = 2
          OnClick = BitBtnOut1Click
        end
        object CheckBoxGroup4: TCheckBox
          Left = 522
          Top = 18
          Width = 57
          Height = 17
          Caption = #33258#21160#32452
          TabOrder = 3
        end
        object BitBtnIn4: TBitBtn
          Left = 488
          Top = 12
          Width = 28
          Height = 28
          Caption = #35835
          TabOrder = 4
          OnClick = BitBtnIn1Click
        end
        object EditOut4b: TEdit
          Left = 152
          Top = 15
          Width = 32
          Height = 24
          BevelInner = bvSpace
          BevelKind = bkFlat
          BevelOuter = bvRaised
          CharCase = ecUpperCase
          Ctl3D = True
          Font.Charset = GB2312_CHARSET

⌨️ 快捷键说明

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