📄 tools.dfm
字号:
object lvPortScan: TListView
Left = 236
Top = 26
Width = 371
Height = 221
Align = alClient
Columns = <
item
Caption = 'IP地址'
Width = 120
end
item
Caption = '端口'
Width = 110
end>
ColumnClick = False
GridLines = True
RowSelect = True
ParentShowHint = False
PopupMenu = PopupMenu1
ShowHint = False
TabOrder = 1
ViewStyle = vsReport
OnDblClick = lvPortScanDblClick
end
object Panel4: TPanel
Left = 0
Top = 247
Width = 607
Height = 19
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label11: TLabel
Left = 7
Top = 4
Width = 84
Height = 12
Caption = '正在扫描的地址'
end
object cbAddToTree2: TCheckBox
Left = 467
Top = 3
Width = 129
Height = 14
Anchors = [akTop, akRight]
Caption = '自动加入搜索目录树'
TabOrder = 0
end
end
object Panel18: TPanel
Left = 0
Top = 26
Width = 236
Height = 221
Align = alLeft
BevelOuter = bvLowered
TabOrder = 3
object Bevel3: TBevel
Left = 1
Top = 1
Width = 234
Height = 25
Align = alTop
Shape = bsBottomLine
end
object Bevel1: TBevel
Left = 1
Top = 189
Width = 234
Height = 31
Align = alBottom
Shape = bsTopLine
end
object Label10: TLabel
Left = 4
Top = 198
Width = 60
Height = 12
Anchors = [akLeft, akBottom]
Caption = '端口范围：'
end
object Label22: TLabel
Left = 64
Top = 198
Width = 12
Height = 12
Anchors = [akLeft, akBottom]
Caption = '从'
end
object Label21: TLabel
Left = 152
Top = 198
Width = 12
Height = 12
Caption = '到'
end
object edtPort: TEdit
Left = 4
Top = 33
Width = 165
Height = 20
TabOrder = 0
end
object clbPort: TCheckListBox
Left = 4
Top = 57
Width = 229
Height = 129
Anchors = [akLeft, akTop, akRight, akBottom]
ItemHeight = 12
Items.Strings = (
'139'
'21'
'80')
TabOrder = 1
end
object cbScanPort1: TComboBox
Left = 87
Top = 194
Width = 57
Height = 20
Anchors = [akLeft, akBottom]
Enabled = False
ItemHeight = 12
TabOrder = 2
Text = '80'
OnChange = cbScanPort1Change
Items.Strings = (
'80'
'21'
'139'
'23')
end
object cbScanPort2: TComboBox
Left = 175
Top = 194
Width = 57
Height = 20
Anchors = [akLeft, akBottom]
Enabled = False
ItemHeight = 12
TabOrder = 3
Text = '80'
Items.Strings = (
'80'
'21'
'139'
'23')
end
object rbUseList: TRadioButton
Left = 8
Top = 4
Width = 113
Height = 17
Caption = '使用列表中的端口'
Checked = True
TabOrder = 4
TabStop = True
OnClick = rbUseListClick
end
object rbUseFromTo: TRadioButton
Left = 136
Top = 4
Width = 96
Height = 17
Caption = '使用端口范围'
TabOrder = 5
OnClick = rbUseFromToClick
end
object btnAddPort: TButton
Left = 184
Top = 33
Width = 44
Height = 21
Caption = '添加'
TabOrder = 6
OnClick = btnAddPortClick
end
end
end
object PingTabSheet: TTabSheet
Caption = 'Ping'
ImageIndex = 3
object Panel5: TPanel
Left = 0
Top = 0
Width = 607
Height = 26
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 0
object Label12: TLabel
Left = 3
Top = 7
Width = 60
Height = 12
Caption = '起始地址：'
end
object Label13: TLabel
Left = 170
Top = 7
Width = 60
Height = 12
Caption = '终止地址：'
end
object Label14: TLabel
Left = 413
Top = 7
Width = 60
Height = 12
Caption = '设置超时：'
end
object Label15: TLabel
Left = 530
Top = 6
Width = 26
Height = 13
AutoSize = False
Caption = '毫秒'
end
object SpeedButton2: TSpeedButton
Left = 715
Top = 3
Width = 65
Height = 22
Anchors = [akTop, akRight]
Caption = '开始'
end
object btnPing: TSpeedButton
Left = 563
Top = 3
Width = 41
Height = 20
Anchors = [akTop, akRight]
Caption = '开始'
OnClick = btnPingClick
end
object btnPingAddrDown: TSpeedButton
Left = 385
Top = 14
Width = 23
Height = 9
Hint = '下一网段'
Glyph.Data = {
BE000000424DBE00000000000000760000002800000009000000090000000100
0400000000004800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
0000FFFFFFFFF0000000FFFF0FFFF0000000FFF000FFF0000000FF00000FF000
0000F0000000F00000000000000000000000FFFFFFFFF0000000FFFFFFFFF000
0000}
Layout = blGlyphBottom
ParentShowHint = False
ShowHint = True
OnClick = btnPingAddrDownClick
end
object btnPingAddrUp: TSpeedButton
Left = 385
Top = 4
Width = 23
Height = 10
Hint = '上一网段'
Glyph.Data = {
BE000000424DBE00000000000000760000002800000009000000090000000100
0400000000004800000000000000000000001000000000000000000000000000
8000008000000080800080000000800080008080000080808000C0C0C0000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFF000
0000FFFFFFFFF00000000000000000000000F0000000F0000000FF00000FF000
0000FFF000FFF0000000FFFF0FFFF0000000FFFFFFFFF0000000FFFFFFFFF000
0000}
Layout = blGlyphBottom
ParentShowHint = False
ShowHint = True
OnClick = btnPingAddrUpClick
end
object btnPingLocalLan: TSpeedButton
Left = 337
Top = 4
Width = 41
Height = 19
Caption = '本网段'
OnClick = btnPingLocalLanClick
end
object edtPing1: TEdit
Left = 61
Top = 3
Width = 101
Height = 20
TabOrder = 0
Text = '192.168.0.1'
end
object edtPing2: TEdit
Left = 230
Top = 3
Width = 101
Height = 20
TabOrder = 1
Text = '192.168.0.255'
end
object spPingTime: TSpinEdit
Left = 473
Top = 3
Width = 50
Height = 21
MaxValue = 0
MinValue = 0
TabOrder = 2
Value = 50
end
end
object lvPing: TListView
Left = 0
Top = 26
Width = 607
Height = 221
Align = alClient
Columns = <
item
Caption = '能ping通的IP地址'
Width = 120
end>
ColumnClick = False
GridLines = True
RowSelect = True
ParentShowHint = False
PopupMenu = PopupMenu1
ShowHint = False
TabOrder = 1
ViewStyle = vsReport
OnDblClick = lvPingDblClick
end
object Panel6: TPanel
Left = 0
Top = 247
Width = 607
Height = 19
Align = alBottom
Alignment = taLeftJustify
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 2
object Label16: TLabel
Left = 10
Top = 4
Width = 84
Height = 12
Caption = '正在ping的地址'
end
object cbAddToTree3: TCheckBox
Left = 473
Top = 3
Width = 129
Height = 14
Anchors = [akTop, akRight]
Caption = '自动加入搜索目录树'
TabOrder = 0
end
end
end
object SendMsgTabSheet: TTabSheet
Caption = '发送消息'
ImageIndex = 4
object Splitter1: TSplitter
Left = 0
Top = 193
Width = 607
Height = 3
Cursor = crVSplit
Align = alBottom
end
object memMsg: TMemo
Left = 0
Top = 19
Width = 607
Height = 149
Align = alClient
TabOrder = 0
end
object Panel7: TPanel
Left = 0
Top = 168
Width = 607
Height = 25
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
TabOrder = 1
object btnSendMsg: TSpeedButton
Left = 452
Top = 4
Width = 57
Height = 18
Anchors = [akTop, akRight]
Caption = '发送消息'
OnClick = btnSendMsgClick
end
object Label17: TLabel
Left = 8
Top = 8
Width = 90
Height = 12
Caption = '主机名/IP地址：'
end
object cbToHost: TComboBox
Left = 104
Top = 2
Width = 340
Height = 20
Anchors = [akLeft, akTop, akRight]
ItemHeight = 12
TabOrder = 0
end
object cbClearMsg: TCheckBox
Left = 518
Top = 6
Width = 84
Height = 14
Anchors = [akTop, akRight]
Caption = '发送后清空'
TabOrder = 1
end
end
object lvSendMsg: TListView
Left = 0
Top = 196
Width = 607
Height = 70
Align = alBottom
Columns = <
item
Caption = '目的主机'
Width = 100
end
item
Caption = '发送内容'
Width = 250
end
item
Caption = '发送结果'
Width = 150
end>
ColumnClick = False
GridLines = True
RowSelect = True
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -