📄 unit1.dfm
字号:
object IP: TIP
Left = 198
Top = 105
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
ClientHeight = 401
ClientWidth = 374
Color = clBtnFace
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 12
object HostInfo: TGroupBox
Left = 0
Top = 0
Width = 374
Height = 135
Align = alTop
Caption = #20027#26426#20449#24687
TabOrder = 0
object StaticText1: TStaticText
Left = 132
Top = 14
Width = 40
Height = 16
Caption = #20027#26426#21517
TabOrder = 0
end
object StaticText2: TStaticText
Left = 108
Top = 35
Width = 64
Height = 16
Caption = 'DNS '#26381#21153#22120
TabOrder = 1
end
object StaticText3: TStaticText
Left = 119
Top = 55
Width = 52
Height = 16
Caption = #32467#28857#31867#22411
TabOrder = 2
end
object StaticText4: TStaticText
Left = 72
Top = 75
Width = 100
Height = 16
Caption = 'NetBIOS '#33539#22260#26631#35782
TabOrder = 3
end
object StaticText5: TStaticText
Left = 96
Top = 95
Width = 76
Height = 16
Caption = #21551#29992' IP '#36335#30001
TabOrder = 4
end
object StaticText6: TStaticText
Left = 48
Top = 116
Width = 124
Height = 16
Caption = 'NetBIOS '#35299#26512#20351#29992' DNS'
TabOrder = 5
end
object MyHostName: TStaticText
Left = 173
Top = 13
Width = 192
Height = 16
Alignment = taCenter
AutoSize = False
BevelInner = bvNone
BevelKind = bkTile
TabOrder = 6
end
object DNSList: TComboBox
Left = 173
Top = 31
Width = 192
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 7
end
object NodeType: TStaticText
Left = 173
Top = 54
Width = 192
Height = 16
Alignment = taCenter
AutoSize = False
BevelInner = bvNone
BevelKind = bkSoft
TabOrder = 8
end
object EnabledIpRoute: TStaticText
Left = 173
Top = 94
Width = 192
Height = 16
Alignment = taCenter
AutoSize = False
BevelInner = bvLowered
BevelOuter = bvNone
BorderStyle = sbsSunken
Caption = 'EnabledIpRoute'
TabOrder = 9
end
object NetBiosScope: TStaticText
Left = 173
Top = 74
Width = 192
Height = 16
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = 'NetBiosScope'
TabOrder = 10
end
object NetBiosDNS: TStaticText
Left = 173
Top = 114
Width = 192
Height = 16
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = 'NetBiosDNS'
TabOrder = 11
end
end
object AdInfo: TGroupBox
Left = 0
Top = 135
Width = 374
Height = 230
Align = alTop
Caption = #36866#37197#22120#20449#24687
TabOrder = 1
object AdapterList: TComboBox
Left = 174
Top = 10
Width = 193
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 0
OnChange = AdapterListChange
end
object StaticText7: TStaticText
Left = 107
Top = 58
Width = 64
Height = 16
Caption = #36866#37197#22120#22320#22336
TabOrder = 1
end
object StaticText8: TStaticText
Left = 118
Top = 78
Width = 52
Height = 16
Caption = #23376#32593#25513#30721
TabOrder = 2
end
object StaticText9: TStaticText
Left = 117
Top = 99
Width = 52
Height = 16
Caption = #32593#20851#21015#34920
TabOrder = 3
end
object StaticText10: TStaticText
Left = 100
Top = 121
Width = 70
Height = 16
Caption = 'DHCP '#26381#21153#22120
TabOrder = 4
end
object StaticText11: TStaticText
Left = 70
Top = 144
Width = 100
Height = 16
Caption = #20027#25511' WINS '#26381#21153#22120
TabOrder = 5
end
object StaticText12: TStaticText
Left = 70
Top = 166
Width = 100
Height = 16
Caption = #36741#21161' WINS '#26381#21153#22120
TabOrder = 6
end
object StaticText13: TStaticText
Left = 106
Top = 189
Width = 64
Height = 16
Caption = #33719#24471#31199#29992#26435
TabOrder = 7
end
object StaticText14: TStaticText
Left = 118
Top = 212
Width = 52
Height = 16
Caption = #31199#26399#24050#21040
TabOrder = 8
end
object CurrentAdapterIPAddress: TComboBox
Left = 174
Top = 32
Width = 193
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 9
OnChange = CurrentAdapterIPAddressChange
end
object CurrentAdapterMask: TStaticText
Left = 174
Top = 78
Width = 193
Height = 16
AutoSize = False
BevelInner = bvNone
BevelKind = bkSoft
TabOrder = 10
end
object CurrentAdapterGetway: TComboBox
Left = 174
Top = 98
Width = 193
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 11
end
object CurrentAdapterDHCP: TComboBox
Left = 174
Top = 120
Width = 193
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 12
end
object FirstWins: TStaticText
Left = 174
Top = 142
Width = 193
Height = 16
AutoSize = False
BevelInner = bvNone
BevelKind = bkTile
TabOrder = 13
end
object SecondWins: TStaticText
Left = 174
Top = 164
Width = 193
Height = 16
AutoSize = False
BevelInner = bvNone
BevelKind = bkTile
TabOrder = 14
end
object StaticText15: TStaticText
Left = 123
Top = 36
Width = 46
Height = 16
Caption = 'IP '#22320#22336
TabOrder = 15
end
object MacAddress: TStaticText
Left = 174
Top = 57
Width = 193
Height = 16
AutoSize = False
BevelInner = bvNone
BevelKind = bkSoft
TabOrder = 16
end
object LeaseObtained: TStaticText
Left = 174
Top = 186
Width = 193
Height = 16
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = 'LeaseObtained'
TabOrder = 17
end
object LeaseExpires: TStaticText
Left = 174
Top = 208
Width = 193
Height = 16
Alignment = taCenter
AutoSize = False
BorderStyle = sbsSunken
Caption = 'LeaseExpires'
TabOrder = 18
end
end
object Panel1: TPanel
Left = 0
Top = 367
Width = 374
Height = 34
Align = alBottom
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel1'
TabOrder = 2
object Button1: TButton
Left = 10
Top = 5
Width = 70
Height = 25
Caption = #30830#23450
TabOrder = 0
OnClick = Button1Click
end
object Button2: TButton
Left = 81
Top = 5
Width = 70
Height = 25
Caption = #37322#25918'(&S)'
TabOrder = 1
OnClick = Button2Click
end
object Button3: TButton
Left = 152
Top = 5
Width = 70
Height = 25
Caption = #26356#26032'(&N)'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 223
Top = 5
Width = 70
Height = 25
Caption = #20840#37096#37322#25918'(&A)'
TabOrder = 3
OnClick = Button4Click
end
object Button5: TButton
Left = 294
Top = 5
Width = 70
Height = 25
Caption = #20840#37096#26356#26032'(&W)'
TabOrder = 4
OnClick = Button5Click
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -