📄 unit1.dfm
字号:
Width = 201
Height = 420
Align = alLeft
BevelOuter = bvNone
TabOrder = 1
object sbStartScan: TSpeedButton
Left = 8
Top = 392
Width = 73
Height = 25
Caption = '开始扫描'
Flat = True
OnClick = sbStartScanClick
end
object sbEndScan: TSpeedButton
Left = 104
Top = 392
Width = 73
Height = 25
Caption = '停止扫描'
Enabled = False
Flat = True
OnClick = sbEndScanClick
end
object GroupBox1: TGroupBox
Left = 0
Top = 112
Width = 193
Height = 105
Caption = '端口范围:'
TabOrder = 0
object lbTo: TLabel
Left = 81
Top = 77
Width = 24
Height = 16
Caption = '---'
Enabled = False
end
object edFrom: TEdit
Left = 8
Top = 73
Width = 73
Height = 24
Enabled = False
TabOrder = 0
Text = '1'
end
object edTo: TEdit
Left = 104
Top = 73
Width = 73
Height = 24
Enabled = False
TabOrder = 1
Text = '65535'
end
object rbSelectPort: TRadioButton
Left = 8
Top = 53
Width = 81
Height = 17
Caption = '自定义:'
TabOrder = 2
OnClick = rbSelectPortClick
end
object rbAllPort: TRadioButton
Left = 8
Top = 25
Width = 169
Height = 17
Caption = '所有端口(0---63335)'
Checked = True
TabOrder = 3
TabStop = True
OnClick = rbAllPortClick
end
end
object GroupBox5: TGroupBox
Left = 0
Top = 7
Width = 193
Height = 100
Caption = '目标主机:'
TabOrder = 1
object rbRemote: TRadioButton
Left = 8
Top = 48
Width = 97
Height = 17
Caption = '远程主机'
Enabled = False
TabOrder = 0
OnClick = rbRemoteClick
end
object rbLocal: TRadioButton
Left = 8
Top = 24
Width = 153
Height = 17
Caption = '本地主机'
Checked = True
TabOrder = 1
TabStop = True
OnClick = rbLocalClick
end
object edRemote: TEdit
Left = 8
Top = 68
Width = 169
Height = 24
Enabled = False
MaxLength = 99
TabOrder = 2
Text = 'www.sina.com.cn'
end
end
object Memo1: TMemo
Left = 0
Top = 220
Width = 193
Height = 165
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 2
end
end
object lbScan: TListBox
Left = 201
Top = 2
Width = 309
Height = 420
Align = alClient
ItemHeight = 16
TabOrder = 2
end
end
object TabSheet6: TTabSheet
Caption = '系统信息'
ImageIndex = 5
object LVTable: TListView
Left = 0
Top = 0
Width = 510
Height = 400
Align = alClient
Color = clAqua
Columns = <
item
AutoSize = True
Caption = '本地地址'
end
item
Alignment = taCenter
AutoSize = True
Caption = '本地端口'
end
item
Alignment = taCenter
AutoSize = True
Caption = '远程地址'
end
item
Alignment = taCenter
AutoSize = True
Caption = '远程端口'
end
item
Alignment = taCenter
AutoSize = True
Caption = '状态'
end>
ReadOnly = True
TabOrder = 0
ViewStyle = vsReport
end
object Panel2: TPanel
Left = 0
Top = 400
Width = 510
Height = 41
Align = alBottom
BevelOuter = bvNone
TabOrder = 1
object BitBtn1: TBitBtn
Left = 8
Top = 8
Width = 75
Height = 25
Caption = '&UDP'
TabOrder = 0
OnClick = BitBtn1Click
Kind = bkIgnore
end
object BitBtn2: TBitBtn
Left = 96
Top = 8
Width = 75
Height = 25
Caption = '&TCP'
TabOrder = 1
OnClick = BitBtn2Click
Kind = bkIgnore
end
object BitBtn3: TBitBtn
Left = 184
Top = 8
Width = 75
Height = 25
Caption = '清空'
TabOrder = 2
OnClick = BitBtn3Click
Kind = bkCancel
end
end
end
object TabSheet4: TTabSheet
Caption = '选项设置'
ImageIndex = 5
object Panel8: TPanel
Left = 338
Top = 0
Width = 172
Height = 441
Align = alClient
BevelOuter = bvNone
TabOrder = 0
object PageControl1: TPageControl
Left = 0
Top = 0
Width = 172
Height = 441
ActivePage = TabSheet7
Align = alClient
Style = tsButtons
TabOrder = 0
object TabSheet7: TTabSheet
Caption = '设置1'
object Label39: TLabel
Left = 4
Top = 328
Width = 152
Height = 48
Caption = '请设置本程序的优先级别,要获得较好的性能请设置高优先级:'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label11: TLabel
Left = 0
Top = 208
Width = 161
Height = 73
AutoSize = False
Caption =
'请设置所用拨号连接的名称,以便程序在未连入网络时自动启动网络连接,' +
'如:我的连接'
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = '宋体'
Font.Style = []
ParentFont = False
WordWrap = True
end
object cbProxy: TCheckBox
Left = 3
Top = 8
Width = 121
Height = 17
Caption = '使用HTTP代理'
TabOrder = 0
OnClick = cbProxyClick
end
object GroupBox2: TGroupBox
Left = 2
Top = 24
Width = 162
Height = 89
Enabled = False
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ParentFont = False
TabOrder = 1
object Label17: TLabel
Left = 8
Top = 24
Width = 35
Height = 14
Caption = '主机:'
Enabled = False
end
object Label18: TLabel
Left = 8
Top = 56
Width = 35
Height = 14
Caption = '端口:'
Enabled = False
end
object edProxyAdd: TEdit
Left = 48
Top = 16
Width = 105
Height = 22
MaxLength = 30
TabOrder = 0
end
object edProxyPort: TEdit
Left = 48
Top = 48
Width = 105
Height = 22
MaxLength = 5
TabOrder = 1
Text = '80'
end
end
object ComboBox1: TComboBox
Left = 3
Top = 376
Width = 150
Height = 22
Style = csOwnerDrawFixed
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ItemHeight = 16
ParentFont = False
TabOrder = 2
OnClick = ComboBox1Click
Items.Strings = (
'最高级'
'较高级'
'正常'
'很低')
end
object CBDialList: TComboBox
Left = 3
Top = 280
Width = 153
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clNavy
Font.Height = -14
Font.Name = '宋体'
Font.Style = []
ItemHeight = 0
MaxLength = 256
ParentFont = False
TabOrder = 3
Text = '系统默认连接'
OnDropDown = CBDialListDropDown
end
object GroupBox7: TGroupBox
Left = 2
Top = 123
Width = 161
Height = 73
Caption = '自动断开连接'
TabOrder = 4
object RBCallEnd: TRadioButton
Left = 8
Top = 19
Width = 113
Height = 17
Caption = '寻呼完成时'
TabOrder = 0
end
object RBProgEnd: TRadioButton
Left = 8
Top = 35
Width = 113
Height = 17
Caption = '程序退出时'
Checked = True
TabOrder = 1
TabStop = True
end
object RBNone: TRadioButton
Left = 8
Top = 51
Width = 113
Height = 17
Caption = '不断开连接'
TabOrder = 2
end
end
end
object TabSheet8: TTabSheet
Caption = '设置2'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -