?? mainfrm.dfm
字號:
object frmMain: TfrmMain
Left = 127
Top = 146
Width = 798
Height = 521
BorderIcons = [biSystemMenu]
Caption = '串口通訊測試軟件'
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -13
Font.Name = '宋體'
Font.Style = []
Menu = MainMenu1
OldCreateOrder = False
OnClose = FormClose
OnCreate = FormCreate
OnDestroy = FormDestroy
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 32
Width = 52
Height = 13
Caption = '傳輸顯示'
end
object lblrts: TLabel
Left = 693
Top = 344
Width = 42
Height = 13
Caption = 'lblrts'
end
object lblTimer2: TLabel
Left = 637
Top = 32
Width = 63
Height = 13
Caption = 'lblTimer2'
end
object Label4: TLabel
Left = 588
Top = 60
Width = 26
Height = 13
Caption = '命令'
end
object Label5: TLabel
Left = 588
Top = 81
Width = 26
Height = 13
Caption = '地址'
end
object Label6: TLabel
Left = 588
Top = 128
Width = 33
Height = 13
Caption = '數據1'
end
object Label7: TLabel
Left = 588
Top = 152
Width = 33
Height = 13
Caption = '數據2'
end
object Label8: TLabel
Left = 588
Top = 175
Width = 33
Height = 13
Caption = '數據3'
end
object Label9: TLabel
Left = 406
Top = 9
Width = 52
Height = 13
Caption = '串口地址'
end
object Label10: TLabel
Left = 588
Top = 198
Width = 33
Height = 13
Caption = '數據4'
end
object Label11: TLabel
Left = 588
Top = 221
Width = 33
Height = 13
Caption = '數據5'
end
object Label12: TLabel
Left = 588
Top = 244
Width = 33
Height = 13
Caption = '數據6'
end
object Label13: TLabel
Left = 588
Top = 267
Width = 33
Height = 13
Caption = '數據7'
end
object Label14: TLabel
Left = 588
Top = 290
Width = 33
Height = 13
Caption = '數據8'
end
object Label15: TLabel
Left = 588
Top = 104
Width = 39
Height = 13
Caption = '控制字'
end
object Label16: TLabel
Left = 35
Top = 12
Width = 26
Height = 13
Caption = '端口'
end
object Label17: TLabel
Left = 181
Top = 12
Width = 39
Height = 13
Caption = '波特率'
end
object memdisplay: TMemo
Left = 8
Top = 48
Width = 569
Height = 153
Font.Charset = GB2312_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = '楷體_GB2312'
Font.Style = []
Lines.Strings = (
'命令 地址 Data1 Data2 Data3 Data4 Data5 Data6 Data7 校' +
'驗和 結束符')
ParentFont = False
TabOrder = 0
end
object btnClose: TButton
Left = 605
Top = 368
Width = 75
Height = 25
Caption = 'Close'
TabOrder = 1
OnClick = btnCloseClick
end
object MSComm1: TMSComm
Left = 149
Top = 120
Width = 32
Height = 32
Cursor = crArrow
OnComm = MSComm1Comm
ControlData = {
2143341208000000ED030000ED03000001568A64000006000000020000040000
00020000802500000000080000000000000000003000000009000000}
end
object btnSend: TButton
Left = 605
Top = 320
Width = 75
Height = 25
Caption = 'btnSend'
TabOrder = 3
OnClick = btnSendClick
end
object edtOut: TEdit
Left = 629
Top = 54
Width = 81
Height = 21
TabOrder = 4
Text = '$FA'
end
object Button1: TButton
Left = 680
Top = 320
Width = 75
Height = 25
Caption = 'Timer1'
TabOrder = 5
OnClick = Button1Click
end
object RT: TButton
Left = 605
Top = 344
Width = 75
Height = 25
Caption = 'RTS'
TabOrder = 6
OnClick = RTClick
end
object Button2: TButton
Left = 541
Top = 2
Width = 75
Height = 25
Caption = 'Thread Begin'
TabOrder = 7
OnClick = Button2Click
end
object Button3: TButton
Left = 629
Top = 2
Width = 75
Height = 25
Caption = 'Timer2'
TabOrder = 8
OnClick = Button3Click
end
object edtAddr: TEdit
Left = 629
Top = 77
Width = 81
Height = 21
TabOrder = 9
Text = '$00'
end
object edtData1: TEdit
Left = 629
Top = 124
Width = 81
Height = 21
TabOrder = 10
Text = '$00'
end
object edtData2: TEdit
Left = 629
Top = 148
Width = 81
Height = 21
TabOrder = 11
Text = '$00'
end
object edtData3: TEdit
Left = 629
Top = 171
Width = 81
Height = 21
TabOrder = 12
Text = '$00'
end
object edt: TEdit
Left = 465
Top = 4
Width = 64
Height = 21
TabOrder = 13
Text = '$2f8'
end
object Button4: TButton
Left = 680
Top = 368
Width = 75
Height = 25
Caption = 'Clear'
TabOrder = 14
OnClick = Button4Click
end
object Button5: TButton
Left = 605
Top = 392
Width = 75
Height = 25
Caption = 'DeleteData'
TabOrder = 15
OnClick = Button5Click
end
object Edit1: TEdit
Left = 629
Top = 194
Width = 81
Height = 21
TabOrder = 16
Text = '$00'
end
object Edit2: TEdit
Left = 629
Top = 217
Width = 81
Height = 21
TabOrder = 17
Text = '$00'
end
object Edit3: TEdit
Left = 629
Top = 240
Width = 81
Height = 21
TabOrder = 18
Text = '$00'
end
object Edit4: TEdit
Left = 629
Top = 263
Width = 81
Height = 21
TabOrder = 19
Text = '$00'
end
object Edit5: TEdit
Left = 629
Top = 286
Width = 81
Height = 21
TabOrder = 20
Text = '$00'
end
object Edit6: TEdit
Left = 629
Top = 100
Width = 81
Height = 21
TabOrder = 21
Text = '$00'
end
object Button6: TButton
Left = 16
Top = 400
Width = 75
Height = 25
Caption = 'Button6'
TabOrder = 22
OnClick = Button6Click
end
object Edit7: TEdit
Left = 104
Top = 400
Width = 129
Height = 21
TabOrder = 23
Text = '12'
end
object Edit8: TEdit
Left = 248
Top = 400
Width = 121
Height = 21
TabOrder = 24
Text = 'Edit8'
end
object cboCOMMport: TComboBox
Left = 64
Top = 8
Width = 81
Height = 21
ItemHeight = 13
TabOrder = 25
Text = 'COM1'
Items.Strings = (
'COM1'
'COM2'
'COM3'
'COM4 ')
end
object cboCOMMsetting: TComboBox
Left = 222
Top = 8
Width = 113
Height = 21
ItemHeight = 13
TabOrder = 26
Text = '9600,n,8,1'
Items.Strings = (
'300,n,8,1'
'600,n,8,1'
'1200,n,8,1'
'2400,n,8,1'
'9600,n,8,1'
'19200,n,8,1'
'')
end
object ComboBox1: TComboBox
Left = 376
Top = 392
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 27
Text = 'ComboBox1'
end
object Memo1: TMemo
Left = 8
Top = 214
Width = 569
Height = 131
Font.Charset = GB2312_CHARSET
Font.Color = clPurple
Font.Height = -13
Font.Name = '楷體_GB2312'
Font.Style = []
Lines.Strings = (
'命令 地址 Data1 Data2 Data3 Data4 Data5 Data6 Data7 校' +
'驗和 結束符')
ParentFont = False
TabOrder = 28
end
object Timer1: TTimer
Enabled = False
OnTimer = Timer1Timer
Left = 85
Top = 120
end
object Timer2: TTimer
Enabled = False
Interval = 8000
OnTimer = Timer2Timer
Left = 149
Top = 176
end
object Table1: TTable
DatabaseName = 'temp'
TableName = 'temp.db'
Left = 440
Top = 88
end
object MainMenu1: TMainMenu
Left = 744
Top = 8
object N1: TMenuItem
Caption = '關閉'
end
object COM1: TMenuItem
Caption = '設置COM'
end
object mnuStart: TMenuItem
Caption = '啟動'
OnClick = mnuStartClick
end
object mnuStop: TMenuItem
Caption = '停止'
end
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -