statusform.dfm
来自「16 relay output channels and 16 isolated」· DFM 代码 · 共 321 行
DFM
321 行
object frmStatus: TfrmStatus
Left = 286
Top = 200
Width = 477
Height = 178
Caption = 'frmStatus'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object Panel9: TPanel
Left = 8
Top = 8
Width = 345
Height = 139
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label1: TLabel
Left = 309
Top = 16
Width = 6
Height = 13
Caption = '0'
end
object Label2: TLabel
Left = 282
Top = 16
Width = 6
Height = 13
Caption = '1'
end
object Label3: TLabel
Left = 254
Top = 16
Width = 6
Height = 13
Caption = '2'
end
object Label4: TLabel
Left = 227
Top = 16
Width = 6
Height = 13
Caption = '3'
end
object Label5: TLabel
Left = 199
Top = 16
Width = 6
Height = 13
Caption = '4'
end
object Label6: TLabel
Left = 172
Top = 16
Width = 6
Height = 13
Caption = '5'
end
object Label7: TLabel
Left = 144
Top = 16
Width = 6
Height = 13
Caption = '6'
end
object Label8: TLabel
Left = 117
Top = 16
Width = 6
Height = 13
Caption = '7'
end
object Label9: TLabel
Left = 48
Top = 16
Width = 18
Height = 13
Caption = 'Bit :'
end
object Label10: TLabel
Left = 48
Top = 40
Width = 45
Height = 13
Caption = 'Enabled :'
end
object Label11: TLabel
Left = 8
Top = 72
Width = 87
Height = 13
Caption = 'Rising Edge Trig. :'
end
object Label12: TLabel
Left = 8
Top = 104
Width = 88
Height = 13
Caption = 'Falling Edge Trig. :'
end
object chkBitEnable0: TCheckBox
Left = 306
Top = 40
Width = 15
Height = 17
TabOrder = 0
OnClick = chkBitEnable7Click
end
object chkBitEnable1: TCheckBox
Left = 279
Top = 40
Width = 15
Height = 17
TabOrder = 1
OnClick = chkBitEnable7Click
end
object chkBitEnable3: TCheckBox
Left = 224
Top = 40
Width = 15
Height = 17
TabOrder = 2
OnClick = chkBitEnable7Click
end
object chkBitEnable2: TCheckBox
Left = 251
Top = 40
Width = 15
Height = 17
TabOrder = 3
OnClick = chkBitEnable7Click
end
object chkBitEnable5: TCheckBox
Left = 169
Top = 40
Width = 15
Height = 17
TabOrder = 4
OnClick = chkBitEnable7Click
end
object chkBitEnable4: TCheckBox
Left = 196
Top = 40
Width = 15
Height = 17
TabOrder = 5
OnClick = chkBitEnable7Click
end
object chkBitEnable7: TCheckBox
Left = 114
Top = 40
Width = 15
Height = 17
TabOrder = 6
OnClick = chkBitEnable7Click
end
object chkBitEnable6: TCheckBox
Left = 143
Top = 40
Width = 13
Height = 17
TabOrder = 7
OnClick = chkBitEnable7Click
end
object chkFalling7: TCheckBox
Left = 114
Top = 104
Width = 15
Height = 17
Enabled = False
TabOrder = 8
end
object chkRising7: TCheckBox
Left = 114
Top = 72
Width = 15
Height = 17
Enabled = False
TabOrder = 9
end
object chkRising6: TCheckBox
Left = 141
Top = 76
Width = 15
Height = 13
Enabled = False
TabOrder = 10
end
object chkFalling6: TCheckBox
Left = 141
Top = 104
Width = 15
Height = 17
Enabled = False
TabOrder = 11
end
object chkRising5: TCheckBox
Left = 169
Top = 72
Width = 15
Height = 18
Enabled = False
TabOrder = 12
end
object chkFalling5: TCheckBox
Left = 169
Top = 104
Width = 15
Height = 17
Enabled = False
TabOrder = 13
end
object chkRising4: TCheckBox
Left = 196
Top = 72
Width = 15
Height = 17
Enabled = False
TabOrder = 14
end
object chkFalling4: TCheckBox
Left = 196
Top = 104
Width = 15
Height = 17
Enabled = False
TabOrder = 15
end
object chkRising3: TCheckBox
Left = 224
Top = 72
Width = 15
Height = 17
Enabled = False
TabOrder = 16
end
object chkFalling3: TCheckBox
Left = 224
Top = 104
Width = 15
Height = 17
Enabled = False
TabOrder = 17
end
object chkRising2: TCheckBox
Left = 251
Top = 72
Width = 15
Height = 17
Enabled = False
TabOrder = 18
end
object chkFalling2: TCheckBox
Left = 251
Top = 104
Width = 15
Height = 17
Enabled = False
TabOrder = 19
end
object chkRising1: TCheckBox
Left = 279
Top = 72
Width = 15
Height = 17
Enabled = False
TabOrder = 20
end
object chkFalling1: TCheckBox
Left = 279
Top = 104
Width = 15
Height = 17
Enabled = False
TabOrder = 21
end
object chkRising0: TCheckBox
Left = 306
Top = 72
Width = 15
Height = 17
Enabled = False
TabOrder = 22
end
object chkFalling0: TCheckBox
Left = 310
Top = 104
Width = 11
Height = 17
Enabled = False
TabOrder = 23
end
end
object btnOK: TButton
Left = 376
Top = 32
Width = 75
Height = 25
Caption = 'OK'
TabOrder = 1
OnClick = btnOKClick
end
object btnCancel: TButton
Left = 376
Top = 88
Width = 75
Height = 25
Caption = 'Cancel'
TabOrder = 2
OnClick = btnCancelClick
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?