?? 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 + -