📄 ucomtest.dfm
字号:
object Form1: TForm1
Left = 227
Top = 146
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = #20018#21475#36890#20449#27979#35797
ClientHeight = 351
ClientWidth = 659
Color = clBtnFace
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
OnActivate = FormActivate
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object GroupBox1: TGroupBox
Left = 331
Top = 0
Width = 328
Height = 351
Align = alRight
Caption = #25910#21040#30340#25968#25454
TabOrder = 0
object StrG1: TStrGrid
Left = 2
Top = 15
Width = 324
Height = 203
Align = alTop
ColCount = 17
DefaultColWidth = 17
RowCount = 2
TabOrder = 0
CharCase = ecNormal
end
object M1: TMemo
Left = 2
Top = 218
Width = 324
Height = 131
Align = alClient
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 1
OnChange = M1Change
end
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 331
Height = 351
Align = alClient
TabOrder = 1
object Panel2: TPanel
Left = 1
Top = 134
Width = 329
Height = 216
Align = alClient
BevelOuter = bvNone
Caption = 'Panel2'
TabOrder = 0
object GroupBox2: TGroupBox
Left = 0
Top = 0
Width = 329
Height = 216
Align = alClient
Caption = #21457#36865#25968#25454#36755#20837
TabOrder = 0
object GroupBox3: TGroupBox
Left = 2
Top = 15
Width = 325
Height = 62
Align = alClient
BiDiMode = bdLeftToRight
Caption = #23383#31526#20018#25968#25454
ParentBiDiMode = False
TabOrder = 0
object M2: TMemo
Left = 2
Top = 15
Width = 321
Height = 45
Align = alClient
ScrollBars = ssVertical
TabOrder = 0
OnChange = M2Change
end
end
object GroupBox4: TGroupBox
Left = 2
Top = 77
Width = 325
Height = 137
Align = alBottom
Caption = #21313#20845#36827#21046#25968#25454
TabOrder = 1
object StrG2: TStrGrid
Left = 2
Top = 15
Width = 321
Height = 120
Align = alClient
ColCount = 17
DefaultColWidth = 17
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
TabOrder = 0
OnKeyPress = StrG2KeyPress
CharCase = ecUpperCase
end
end
end
end
object Panel3: TPanel
Left = 1
Top = 1
Width = 329
Height = 133
Align = alTop
BevelOuter = bvNone
TabOrder = 1
object Label1: TLabel
Left = 8
Top = 13
Width = 26
Height = 13
Caption = #31471#21475
end
object Label2: TLabel
Left = 104
Top = 14
Width = 39
Height = 13
Caption = #27874#29305#29575
end
object Label3: TLabel
Left = 224
Top = 14
Width = 26
Height = 13
Caption = #26657#39564
end
object Label11: TLabel
Left = 8
Top = 38
Width = 39
Height = 13
Caption = #25968#25454#20301
end
object Label12: TLabel
Left = 104
Top = 38
Width = 39
Height = 13
Caption = #20572#27490#20301
end
object BOpen: TButton
Left = 8
Top = 68
Width = 75
Height = 25
Caption = #25171#24320#31471#21475
Enabled = False
TabOrder = 0
OnClick = BOpenClick
end
object B1: TButton
Left = 8
Top = 98
Width = 75
Height = 25
Caption = #21457#36865#25991#26412
Enabled = False
TabOrder = 1
OnClick = B1Click
end
object B3: TButton
Left = 168
Top = 98
Width = 75
Height = 25
Caption = #25163#21160#25509#25910
Enabled = False
TabOrder = 2
OnClick = B3Click
end
object B2: TButton
Left = 88
Top = 98
Width = 76
Height = 25
Caption = #21457#36865#20108#36827#21046
Enabled = False
TabOrder = 3
OnClick = B2Click
end
object CPort: TComboBox
Left = 38
Top = 10
Width = 62
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 4
OnChange = CPortChange
end
object Button4: TButton
Left = 169
Top = 69
Width = 90
Height = 25
Caption = #21047#26032#21487#29992#31471#21475
TabOrder = 5
OnClick = Button4Click
end
object CloseComm: TButton
Left = 89
Top = 68
Width = 75
Height = 25
Caption = #20851#38381#31471#21475
TabOrder = 6
OnClick = CloseCommClick
end
object Chb1: TCheckBox
Left = 248
Top = 103
Width = 74
Height = 17
Caption = #33258#21160#25509#25910
TabOrder = 7
OnClick = Chb1Click
end
object MSComm1: TMSComm
Left = 159
Top = 120
Width = 32
Height = 32
OnComm = MSComm1Comm
ControlData = {
2143341208000000ED030000ED03000001568A64000006000000010000040000
0002000000C201000000070000000000000000003F00000001000000}
end
object CBps: TComboBox
Left = 148
Top = 10
Width = 72
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 5
TabOrder = 9
Text = '9600'
Items.Strings = (
'1200'
'1800'
'2400'
'4800'
'7200'
'9600'
'14400'
'19200'
'38400'
'57600'
'115200'
'128000')
end
object CJY: TComboBox
Left = 256
Top = 10
Width = 68
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 10
Text = 'None'
Items.Strings = (
'None'
'Odd'
'Even'
'Mark'
'Space')
end
object FXB0: TButton
Left = 263
Top = 69
Width = 62
Height = 25
Caption = #19977#33777'PLC'
Enabled = False
TabOrder = 11
OnClick = FXB0Click
end
object CbDat: TComboBox
Left = 57
Top = 34
Width = 42
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 4
TabOrder = 12
Text = '8'
Items.Strings = (
'4'
'5'
'6'
'7'
'8')
end
object CbStp: TComboBox
Left = 149
Top = 34
Width = 42
Height = 21
Style = csDropDownList
ItemHeight = 13
ItemIndex = 0
TabOrder = 13
Text = '1'
Items.Strings = (
'1'
'1.5'
'2')
end
object BOnLine: TButton
Left = 200
Top = 40
Width = 75
Height = 25
Caption = #35774#22791#22312#32447#21542
Enabled = False
TabOrder = 14
OnClick = BOnLineClick
end
object BCLR: TButton
Left = 280
Top = 40
Width = 44
Height = 25
Caption = #28165#31354
Enabled = False
TabOrder = 15
OnClick = BCLRClick
end
end
end
object PanFX: TPanel
Left = 9
Top = 167
Width = 317
Height = 177
Color = clSkyBlue
TabOrder = 2
Visible = False
object Label4: TLabel
Left = 8
Top = 18
Width = 52
Height = 13
Caption = #19977#33777#35774#22791
end
object Label5: TLabel
Left = 8
Top = 48
Width = 52
Height = 13
Caption = #35774#22791#20010#25968
end
object Label6: TLabel
Left = 8
Top = 95
Width = 52
Height = 13
Caption = #24453#20889#25968#25454
end
object Label7: TLabel
Left = 8
Top = 73
Width = 52
Height = 13
Caption = #31561#24453#24310#26102
end
object Label8: TLabel
Left = 105
Top = 73
Width = 41
Height = 13
Caption = #215'10ms'
end
object Label9: TLabel
Left = 160
Top = 19
Width = 39
Height = 13
Caption = #31449#28857#21495
end
object Label10: TLabel
Left = 246
Top = 19
Width = 27
Height = 13
Caption = 'PC'#21495
end
object FXEd1: TEdit
Left = 63
Top = 14
Width = 82
Height = 21
CharCase = ecUpperCase
MaxLength = 5
TabOrder = 0
OnChange = FXEd1Change
OnKeyPress = FXEd1KeyPress
end
object FXEd2: TEdit
Left = 63
Top = 44
Width = 82
Height = 21
MaxLength = 2
TabOrder = 1
Text = '1'
OnChange = FXEd2Change
OnKeyPress = FXEd2KeyPress
end
object FxB1: TButton
Left = 156
Top = 149
Width = 75
Height = 25
Caption = #35835#21462#35774#22791
Enabled = False
TabOrder = 2
OnClick = FxB1Click
end
object FXB2: TButton
Left = 236
Top = 149
Width = 75
Height = 25
Caption = #20889#20837#35774#22791
TabOrder = 3
OnClick = FXB2Click
end
object RG1: TRadioGroup
Left = 159
Top = 55
Width = 151
Height = 41
Caption = #35774#22791#31867#22411
Columns = 2
ItemIndex = 0
Items.Strings = (
'&Bit'
'&Word')
TabOrder = 4
OnClick = RG1Click
end
object RG2: TRadioGroup
Left = 159
Top = 103
Width = 151
Height = 41
Caption = #21327#35758#26684#24335
Columns = 2
ItemIndex = 0
Items.Strings = (
'Format&1'
'Format&4')
TabOrder = 5
end
object SpinE1: TSpinEdit
Left = 63
Top = 68
Width = 41
Height = 22
MaxLength = 2
MaxValue = 15
MinValue = 0
TabOrder = 6
Value = 10
end
object StrG3: TStrGrid
Left = 63
Top = 96
Width = 82
Height = 76
ColCount = 1
DefaultColWidth = 60
DefaultRowHeight = 17
FixedCols = 0
RowCount = 1
FixedRows = 0
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goEditing]
TabOrder = 7
OnDrawCell = StrG3DrawCell
OnKeyPress = StrG3KeyPress
OnSetEditText = StrG3SetEditText
CharCase = ecUpperCase
end
object FxEd3: TEdit
Left = 204
Top = 15
Width = 28
Height = 21
MaxLength = 3
TabOrder = 8
Text = '0'
OnChange = FxEd3Change
OnKeyPress = FXEd2KeyPress
end
object FxEd4: TEdit
Left = 276
Top = 15
Width = 28
Height = 21
MaxLength = 3
TabOrder = 9
Text = '255'
OnChange = FxEd3Change
OnKeyPress = FXEd2KeyPress
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -