unit1.dfm

用Delphi实现的网络测速 用Delphi实现的网络测速

object Form1: TForm1
  Left = 400
  Top = 24
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Wealsh '#32593#32476#27979#36895#22120
  ClientHeight = 491
  ClientWidth = 375
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object StatusBar1: TStatusBar
    Left = 0
    Top = 472
    Width = 375
    Height = 19
    Panels = <
      item
        Width = 200
      end
      item
        Width = 100
      end>
    SimplePanel = False
  end
  object GroupBox1: TGroupBox
    Left = 0
    Top = 0
    Width = 201
    Height = 472
    Align = alLeft
    Caption = #27979#35797#32467#26524
    TabOrder = 1
    object WebBrowser1: TWebBrowser
      Left = 2
      Top = 14
      Width = 197
      Height = 456
      Align = alClient
      TabOrder = 0
      ControlData = {
        4C0000005C140000212F00000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
    object Memo1: TMemo
      Left = 24
      Top = 240
      Width = 41
      Height = 41
      Lines.Strings = (
        'Memo1')
      ScrollBars = ssBoth
      TabOrder = 1
      Visible = False
    end
    object Memo2: TMemo
      Left = 72
      Top = 240
      Width = 49
      Height = 41
      Lines.Strings = (
        'Memo2')
      ScrollBars = ssBoth
      TabOrder = 2
      Visible = False
    end
  end
  object GroupBox2: TGroupBox
    Left = 201
    Top = 0
    Width = 173
    Height = 129
    Caption = #36873#25321#27979#35797#32593#28857
    TabOrder = 2
    object SpeedButton1: TSpeedButton
      Left = 128
      Top = 25
      Width = 38
      Height = 21
      Caption = #37325#27979
      Enabled = False
      OnClick = SpeedButton1Click
    end
    object WebBrowser2: TWebBrowser
      Left = 32
      Top = 352
      Width = 1
      Height = 1
      TabOrder = 0
      OnProgressChange = WebBrowser2ProgressChange
      OnDownloadBegin = WebBrowser2DownloadBegin
      OnDownloadComplete = WebBrowser2DownloadComplete
      ControlData = {
        4C0000001A0000001A0000000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
    object ComboBox1: TComboBox
      Left = 9
      Top = 24
      Width = 112
      Height = 22
      Style = csOwnerDrawFixed
      ItemHeight = 16
      TabOrder = 1
      OnChange = ComboBox1Change
      OnDropDown = ComboBox1DropDown
      Items.Strings = (
        #24800#24030
        #24191#24030
        #19978#28023
        #21271#20140
        #22825#27941
        #39321#28207
        #37325#24198
        #21488#21271
        #19996#33694
        #19996#20140
        #32654#22269)
    end
  end
  object ProgressBar1: TProgressBar
    Left = 203
    Top = 475
    Width = 171
    Height = 16
    Min = 0
    Max = 100
    Smooth = True
    TabOrder = 3
  end
  object GroupBox3: TGroupBox
    Left = 201
    Top = 131
    Width = 173
    Height = 78
    Caption = #26412#26426#20449#24687
    TabOrder = 4
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 24
      Height = 12
      Caption = 'IP'#65306
    end
    object Label2: TLabel
      Left = 8
      Top = 53
      Width = 36
      Height = 12
      Caption = #26469#33258#65306
    end
    object Label4: TLabel
      Left = 32
      Top = 24
      Width = 6
      Height = 12
    end
    object Label5: TLabel
      Left = 42
      Top = 53
      Width = 6
      Height = 12
    end
  end
  object Edit1: TEdit
    Left = 304
    Top = 136
    Width = 41
    Height = 20
    TabOrder = 5
    Text = '0'
    Visible = False
  end
  object GroupBox4: TGroupBox
    Left = 201
    Top = 211
    Width = 173
    Height = 70
    Caption = #36895#24230#35780#20272
    TabOrder = 6
    object Panel1: TPanel
      Left = 8
      Top = 26
      Width = 157
      Height = 27
      TabOrder = 0
    end
  end
  object GroupBox5: TGroupBox
    Left = 201
    Top = 285
    Width = 174
    Height = 187
    Caption = #35828#26126
    TabOrder = 7
    object Label3: TLabel
      Left = 11
      Top = 32
      Width = 96
      Height = 12
      Caption = #25152#26377#27979#35797#32593#28857#26469#33258
    end
    object Label6: TLabel
      Left = 110
      Top = 32
      Width = 48
      Height = 12
      Cursor = crHandPoint
      Caption = #19990#30028#32593#32476
      Font.Charset = GB2312_CHARSET
      Font.Color = clBlue
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = Label6Click
    end
  end
end