📄 fcomm.~dfm
字号:
object Form1: TForm1
Left = 257
Top = 151
BorderStyle = bsSingle
Caption = 'modbus RTU MASTER'
ClientHeight = 603
ClientWidth = 760
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Button9: TButton
Left = 585
Top = 507
Width = 75
Height = 30
Caption = 'strtobcd'
TabOrder = 0
OnClick = Button9Click
end
object GroupBox1: TGroupBox
Left = 560
Top = 140
Width = 193
Height = 145
Caption = #23450#26102#21457#36865
TabOrder = 1
object Label11: TLabel
Left = 25
Top = 36
Width = 48
Height = 13
Caption = #26102#38388#38388#38548
end
object Label8: TLabel
Left = 140
Top = 36
Width = 13
Height = 13
Caption = 'ms'
end
object Edit1: TEdit
Left = 96
Top = 28
Width = 41
Height = 21
TabOrder = 0
Text = '30'
OnChange = Edit1Change
end
object Button7: TButton
Left = 80
Top = 96
Width = 65
Height = 33
Caption = #24320#22987
TabOrder = 1
OnClick = Button7Click
end
object Button8: TButton
Left = 14
Top = 96
Width = 67
Height = 33
Caption = #20572#27490
TabOrder = 2
OnClick = Button8Click
end
end
object GroupBox2: TGroupBox
Left = 5
Top = 8
Width = 748
Height = 129
Caption = #21151#33021#20195#30721
TabOrder = 2
object Label3: TLabel
Left = 67
Top = 21
Width = 36
Height = 13
Caption = #21151#33021#21495
end
object Label4: TLabel
Left = 125
Top = 21
Width = 48
Height = 13
Caption = #35835#21462#22320#22336
end
object Label5: TLabel
Left = 222
Top = 21
Width = 48
Height = 13
Caption = #35835#21462#25968#37327
end
object Label6: TLabel
Left = 318
Top = 21
Width = 58
Height = 13
Caption = 'CRC16'#26657#39564
end
object Label2: TLabel
Left = 12
Top = 21
Width = 36
Height = 13
Caption = #31449#22320#22336
end
object label9: TLabel
Left = 12
Top = 93
Width = 72
Height = 13
Caption = #21313#20845#36827#21046#20195#30721
end
object Label1: TLabel
Left = 523
Top = 31
Width = 60
Height = 13
Caption = #26657#39564#22810#39033#24335
end
object Label7: TLabel
Left = 523
Top = 64
Width = 60
Height = 13
Caption = #26657#39564#21021#22987#20540
end
object Edit2: TEdit
Left = 12
Top = 40
Width = 41
Height = 21
MaxLength = 2
TabOrder = 0
Text = '01'
OnExit = Edit2Exit
end
object Edit3: TEdit
Left = 67
Top = 40
Width = 41
Height = 21
MaxLength = 2
TabOrder = 1
Text = '04'
OnExit = Edit3Exit
end
object Edit4: TEdit
Left = 125
Top = 40
Width = 81
Height = 21
MaxLength = 4
TabOrder = 2
Text = '1000'
OnExit = Edit4Exit
end
object Edit5: TEdit
Left = 222
Top = 40
Width = 81
Height = 21
MaxLength = 4
TabOrder = 3
Text = '0009'
OnExit = Edit5Exit
end
object Edit6: TEdit
Left = 318
Top = 40
Width = 81
Height = 21
MaxLength = 4
TabOrder = 4
Text = '34CC'
end
object Button5: TButton
Left = 403
Top = 40
Width = 65
Height = 25
Caption = 'CRC16'
TabOrder = 5
OnClick = Button5Click
end
object Edit9: TEdit
Left = 128
Top = 88
Width = 337
Height = 21
TabOrder = 6
Text = '01 04 10 0 0 9 34 CC '
end
object Edit7: TEdit
Left = 603
Top = 24
Width = 121
Height = 21
TabOrder = 7
Text = 'C003'
end
object Edit8: TEdit
Left = 603
Top = 62
Width = 121
Height = 21
TabOrder = 8
Text = 'FFFF'
end
end
object StatusBar1: TStatusBar
Left = 0
Top = 582
Width = 760
Height = 21
Panels = <
item
Text = #31471#21475#29366#24577#65306
Width = 60
end
item
Width = 100
end
item
Text = #27169#24335#65306
Width = 40
end
item
Width = 50
end
item
Text = #21151#33021#25551#36848#65306
Width = 60
end
item
Width = 50
end
item
Text = #36890#35759#29366#20917#65306
Width = 70
end
item
Width = 50
end>
end
object GroupBox3: TGroupBox
Left = 5
Top = 140
Width = 548
Height = 437
Caption = 'z'
TabOrder = 4
object RichEdit1: TRichEdit
Left = 6
Top = 13
Width = 449
Height = 403
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
HideSelection = False
Lines.Strings = (
'RichEdit1')
ParentFont = False
ParentShowHint = False
PlainText = True
PopupMenu = PopupMenu1
ScrollBars = ssBoth
ShowHint = True
TabOrder = 0
end
object Button6: TButton
Left = 464
Top = 128
Width = 73
Height = 33
Caption = #28165#38500#35760#25968
TabOrder = 1
OnClick = Button6Click
end
object Button4: TButton
Left = 464
Top = 80
Width = 73
Height = 33
Caption = #28165#38500#25991#26412
TabOrder = 2
OnClick = Button3Click
end
object Button1: TButton
Left = 464
Top = 32
Width = 73
Height = 33
Caption = #21457#36865#25968#25454
TabOrder = 3
OnClick = Button1Click
end
object Button11: TButton
Left = 464
Top = 232
Width = 75
Height = 25
Caption = #23450#26102#20445#23384
TabOrder = 4
OnClick = Button11Click
end
object Edit10: TEdit
Left = 472
Top = 200
Width = 49
Height = 21
TabOrder = 5
Text = '1000'
OnChange = Edit10Change
end
object Button12: TButton
Left = 464
Top = 312
Width = 75
Height = 25
Caption = #26597#30475
TabOrder = 6
OnClick = Button12Click
end
object Button13: TButton
Left = 464
Top = 264
Width = 75
Height = 25
Caption = #20572#27490
TabOrder = 7
OnClick = Button13Click
end
object Button14: TButton
Left = 464
Top = 344
Width = 75
Height = 25
Caption = #28165#38500
TabOrder = 8
end
end
object GroupBox4: TGroupBox
Left = 560
Top = 288
Width = 169
Height = 185
Caption = 'MODBUS SLAVE '#27169#24335
TabOrder = 5
object Button2: TButton
Left = 38
Top = 32
Width = 75
Height = 33
Caption = #25968#25454#35760#24405
TabOrder = 0
end
object Button3: TButton
Left = 38
Top = 80
Width = 75
Height = 33
Caption = #25968#25454#20998#26512
TabOrder = 1
OnClick = Button3Click
end
object Button10: TButton
Left = 38
Top = 128
Width = 75
Height = 33
Caption = #25968#25454#23519#30475
TabOrder = 2
end
end
object Comm1: TComm
CommName = 'COM1'
BaudRate = 9600
ParityCheck = True
Outx_CtsFlow = False
Outx_DsrFlow = False
DtrControl = DtrDisable
DsrSensitivity = False
TxContinueOnXoff = False
Outx_XonXoffFlow = True
Inx_XonXoffFlow = False
ReplaceWhenParityError = False
IgnoreNullChar = False
RtsControl = RtsDisable
XonLimit = 500
XoffLimit = 500
ByteSize = _8
Parity = Even
StopBits = _1
XonChar = #17
XoffChar = #19
ReplacedChar = '0'
ReadIntervalTimeout = 30
ReadTotalTimeoutMultiplier = 100
ReadTotalTimeoutConstant = 8
WriteTotalTimeoutMultiplier = 0
WriteTotalTimeoutConstant = 0
OnReceiveData = Comm1ReceiveData
Left = 112
Top = 312
end
object Timer1: TTimer
OnTimer = Timer1Timer
Left = 56
Top = 320
end
object MainMenu1: TMainMenu
Left = 88
Top = 280
object N1: TMenuItem
Caption = #31471#21475#35774#32622
OnClick = N1Click
end
object N2: TMenuItem
Caption = #25171#24320
OnClick = N2Click
end
object N3: TMenuItem
Caption = #20851#38381
OnClick = N3Click
end
end
object Timer2: TTimer
OnTimer = Timer2Timer
Left = 405
Top = 300
end
object PopupMenu1: TPopupMenu
Left = 213
Top = 284
object copy: TMenuItem
Caption = 'copy'
OnClick = copyClick
end
object paste1: TMenuItem
Caption = 'paste'
OnClick = paste1Click
end
object selectall1: TMenuItem
Caption = 'select all'
OnClick = selectall1Click
end
object find1: TMenuItem
Caption = 'find'
OnClick = find1Click
end
end
object FindDialog1: TFindDialog
OnFind = FindDialog1Find
Left = 205
Top = 220
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -