📄 unit1.dfm
字号:
object MyPing: TMyPing
Left = 212
Top = 177
Width = 772
Height = 525
Caption = #20027#26426#36720#20987#31243#24207
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -10
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poDesktopCenter
OnCreate = FormCreate
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object StatusShow: TMemo
Left = 0
Top = 137
Width = 764
Height = 354
Hint = #21452#20987#36827#20837#20840#20891#22320#22336#25506#27979
Align = alClient
Color = clNavy
Font.Charset = DEFAULT_CHARSET
Font.Color = clWhite
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = []
Lines.Strings = (
'StatusShow')
OEMConvert = True
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 0
WantTabs = True
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 764
Height = 137
Align = alTop
Caption = 'Panel1'
TabOrder = 1
object SpeedButton1: TSpeedButton
Left = 496
Top = 31
Width = 111
Height = 24
AllowAllUp = True
GroupIndex = 2
Caption = #38388#38548#24490#29615
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333FFFFF3333333333000003333333333F77777FFF333333009999900
3333333777777777FF33330998FFF899033333777333F3777FF33099FFFCFFF9
903337773337333777F3309FFFFFFFCF9033377333F3337377FF098FF0FFFFFF
890377F3373F3333377F09FFFF0FFFFFF90377F3F373FFFFF77F09FCFFF90000
F90377F733377777377F09FFFFFFFFFFF90377F333333333377F098FFFFFFFFF
890377FF3F33333F3773309FCFFFFFCF9033377F7333F37377F33099FFFCFFF9
90333777FF37F3377733330998FCF899033333777FF7FF777333333009999900
3333333777777777333333333000003333333333377777333333}
NumGlyphs = 2
ParentFont = False
OnClick = BitBtn2Click
end
object SpeedButton3: TSpeedButton
Left = 496
Top = 59
Width = 111
Height = 24
AllowAllUp = True
GroupIndex = 2
Caption = #32456#27490#24490#29615
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333333333333333333FFF33FF333FFF339993370733
999333777FF37FF377733339993000399933333777F777F77733333399970799
93333333777F7377733333333999399933333333377737773333333333990993
3333333333737F73333333333331013333333333333777FF3333333333910193
333333333337773FF3333333399000993333333337377737FF33333399900099
93333333773777377FF333399930003999333337773777F777FF339993370733
9993337773337333777333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
end
object SpeedButton2: TSpeedButton
Left = 496
Top = 86
Width = 111
Height = 25
AllowAllUp = True
GroupIndex = 2
Caption = #26080#38480#24490#29615
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300130000031
00333773F77777FF7733331000909000133333377737F777FF33330098F0F890
0333337733F733F77F33370980FFF08907333373373F373373F33099FF0FFFF9
903337F3F373F33FF7F33090FFF0FF00903337F73337F37737F33099FFF0FFF9
9033373F33F7F3F33733370980F0F0890733337FF737F7337F33330098F0F890
03333F77FF3733377FFF000009999900000377777FFFFF77777F088700000008
77037F3377777773337F088887707888870373F3337773F33373307880707088
7033373FF737F73FF733337003303300733333777337FF777333333333000333
3333333333777333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton2Click
end
object Panel2: TPanel
Left = 7
Top = 0
Width = 488
Height = 131
Color = 12615808
TabOrder = 0
DesignSize = (
488
131)
object Label1: TLabel
Left = 7
Top = 12
Width = 109
Height = 16
Caption = #35831#36755#20837'IP'#22320#22336#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 233
Top = 12
Width = 128
Height = 16
Caption = #35831#36755#20837#27979#35797#27425#25968#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 11
Top = 55
Width = 80
Height = 16
Caption = #36215#22987#26102#38388#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 11
Top = 97
Width = 80
Height = 16
Caption = #32467#26463#26102#38388#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 233
Top = 38
Width = 90
Height = 16
Caption = #35831#36755#20837'TTL'#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 233
Top = 64
Width = 192
Height = 16
Caption = #35831#36755#20837#36229#26102#26102#38388#65288#27627#31186#65289#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 182
Top = 97
Width = 96
Height = 16
Caption = #32791#26102#65288#31186#65289#65306
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
end
object SpeedButton4: TSpeedButton
Left = 379
Top = 93
Width = 99
Height = 23
Caption = #36755#20837#27979#35797#25253#25991
Flat = True
Font.Charset = ANSI_CHARSET
Font.Color = 33023
Font.Height = -12
Font.Name = 'MS Serif'
Font.Style = []
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333333333333333333FFF333333333333000333333333
3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0
3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF
0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF
BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033
33337777773FF733333333333300033333333333337773333333333333333333
3333333333333333333333333333333333333333333333333333333333333333
3333333333333333333333333333333333333333333333333333}
NumGlyphs = 2
ParentFont = False
OnClick = SpeedButton4Click
end
object PingEdit: TEdit
Left = 114
Top = 9
Width = 98
Height = 24
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
Text = '100.100.100.109'
end
object Edit1: TEdit
Left = 380
Top = 9
Width = 100
Height = 24
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
Text = '1'
end
object Edit2: TEdit
Left = 96
Top = 52
Width = 119
Height = 24
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object Edit3: TEdit
Left = 103
Top = 93
Width = 73
Height = 24
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
end
object ExeBtn: TButton
Left = 493
Top = 89
Width = 77
Height = 23
Anchors = [akBottom]
Caption = 'Ping'#27979#35797
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 4
Visible = False
OnClick = ExeBtnClick
end
object Edit4: TEdit
Left = 380
Top = 35
Width = 100
Height = 24
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
Text = '64'
end
object Edit5: TEdit
Left = 423
Top = 60
Width = 56
Height = 24
Color = clWhite
Font.Charset = ANSI_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
Text = '2000'
end
object Edit7: TEdit
Left = 298
Top = 93
Width = 73
Height = 24
Color = clNavy
Font.Charset = ANSI_CHARSET
Font.Color = clLime
Font.Height = -15
Font.Name = 'MS Serif'
Font.Style = []
ParentFont = False
TabOrder = 7
end
end
object BitBtn1: TBitBtn
Left = 496
Top = 5
Width = 111
Height = 23
Caption = #32593#32476#25506#27979
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 1
OnClick = ExeBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
00333FF777777777773F0000FFFFFFFFFF0377773F3F3F3F3F7308880F0F0F0F
0FF07F33737373737337088880FFFFFFFFF07F3337FFFFFFFFF7088880000000
00037F3337777777777308888033330F03337F3337F3FF7F7FFF088880300000
00007F3337F7777777770FFFF030FFFFFFF07F3FF7F7F3FFFFF708008030F000
00F07F7737F7F77777F70FFFF030F0AAE0F07F3FF7F7F7F337F708008030F0DA
D0F07F7737F7F7FFF7F70FFFF030F00000F07F33F7F7F77777370FF9F030FFFF
FFF07F3737F7FFFFFFF70FFFF030000000007FFFF7F777777777000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
end
object BitBtn3: TBitBtn
Left = 496
Top = 112
Width = 111
Height = 24
Caption = ' '#36864' '#20986
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 2
OnClick = BitBtn3Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
00333FF777777777773F0000FFFFFFFFFF0377773F3F3F3F3F7308880F0F0F0F
0FF07F33737373737337088880FFFFFFFFF07F3337FFFFFFFFF7088880000000
00037F3337777777777308888033330F03337F3337F3FF7F7FFF088880300000
00007F3337F7777777770FFFF030FFFFFFF07F3FF7F7F3FFFFF708008030F000
00F07F7737F7F77777F70FFFF030F0AAE0F07F3FF7F7F7F337F708008030F0DA
D0F07F7737F7F7FFF7F70FFFF030F00000F07F33F7F7F77777370FF9F030FFFF
FFF07F3737F7FFFFFFF70FFFF030000000007FFFF7F777777777000000333333
3333777777333333333333333333333333333333333333333333}
NumGlyphs = 2
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -