code3.~dfm

这个也不错

object Form3: TForm3
  Left = 269
  Top = 127
  Width = 396
  Height = 291
  Caption = '扫描主机'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  PixelsPerInch = 96
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 3
    Top = 2
    Width = 380
    Height = 258
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object Label1: TLabel
      Left = 16
      Top = 24
      Width = 32
      Height = 20
      Caption = '端口'
    end
    object Label2: TLabel
      Left = 8
      Top = 56
      Width = 48
      Height = 20
      Caption = '地址域'
    end
    object Label3: TLabel
      Left = 16
      Top = 88
      Width = 32
      Height = 20
      Caption = '开始'
    end
    object Label4: TLabel
      Left = 16
      Top = 120
      Width = 32
      Height = 20
      Caption = '终止'
    end
    object Gauge1: TGauge
      Left = 16
      Top = 184
      Width = 193
      Height = 17
      ForeColor = clRed
      MaxValue = 225
      Progress = 0
    end
    object Label5: TLabel
      Left = 16
      Top = 152
      Width = 32
      Height = 20
      Caption = '延时'
    end
    object Label6: TLabel
      Left = 120
      Top = 149
      Width = 16
      Height = 20
      Caption = 'ss'
    end
    object Edit1: TEdit
      Left = 60
      Top = 19
      Width = 93
      Height = 28
      TabOrder = 0
      Text = '10150'
    end
    object Edit2: TEdit
      Left = 59
      Top = 52
      Width = 118
      Height = 28
      TabOrder = 1
      Text = '127.0.0'
    end
    object Edit3: TEdit
      Left = 60
      Top = 83
      Width = 93
      Height = 28
      TabOrder = 2
      Text = '1'
    end
    object Edit4: TEdit
      Left = 59
      Top = 117
      Width = 97
      Height = 28
      TabOrder = 3
      Text = '255'
    end
    object ListBox1: TListBox
      Left = 216
      Top = 16
      Width = 153
      Height = 233
      ItemHeight = 20
      TabOrder = 4
    end
    object BitBtn1: TBitBtn
      Left = 6
      Top = 214
      Width = 65
      Height = 28
      Caption = '开始'
      TabOrder = 5
      OnClick = BitBtn1Click
      Kind = bkIgnore
    end
    object BitBtn2: TBitBtn
      Left = 70
      Top = 214
      Width = 73
      Height = 28
      Caption = '终止'
      TabOrder = 6
      OnClick = BitBtn2Click
      Kind = bkNo
    end
    object TreeView1: TTreeView
      Left = 176
      Top = 24
      Width = 17
      Height = 9
      Indent = 19
      TabOrder = 7
      Visible = False
    end
    object BitBtn3: TBitBtn
      Left = 143
      Top = 214
      Width = 62
      Height = 28
      Caption = '关闭'
      TabOrder = 8
      OnClick = BitBtn3Click
      Kind = bkCancel
    end
    object Edit5: TEdit
      Left = 58
      Top = 149
      Width = 55
      Height = 28
      TabOrder = 9
      Text = '500'
    end
  end
  object PopupMenu1: TPopupMenu
    Images = Form1.ImageList1
    Left = 280
    Top = 40
    object N1: TMenuItem
      Caption = '显示主窗口'
      ImageIndex = 0
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = '添加主机'
      ImageIndex = 1
    end
    object N3: TMenuItem
      Caption = '删除主机'
      ImageIndex = 1
    end
    object N4: TMenuItem
      Caption = '-'
    end
    object N5: TMenuItem
      Caption = '关于'
      ImageIndex = 2
      object N6: TMenuItem
        Caption = '关于我'
        ImageIndex = 0
        OnClick = N6Click
      end
      object N7: TMenuItem
        Caption = '写信给我'
        ImageIndex = 0
        OnClick = N7Click
      end
      object N8: TMenuItem
        Caption = '访问我的网站'
        ImageIndex = 0
        OnClick = N8Click
      end
    end
    object N9: TMenuItem
      Caption = '退出'
      ImageIndex = 2
      OnClick = N9Click
    end
  end
  object ImageList1: TImageList
    Left = 187
    Top = 114
  end
  object ClientSocket1: TClientSocket
    Active = False
    ClientType = ctNonBlocking
    Port = 10150
    OnConnect = ClientSocket1Connect
    Left = 187
    Top = 50
  end
  object Timer1: TTimer
    Enabled = False
    Interval = 500
    OnTimer = Timer1Timer
    Left = 187
    Top = 82
  end
end