main.dfm

Delphi中处理线程池的一个组件,非常好用.

object frmDemo: TfrmDemo
  Left = 254
  Top = 187
  Width = 710
  Height = 513
  Caption = 'frmDemo'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object LvPxy: TListView
    Left = 0
    Top = 126
    Width = 702
    Height = 330
    Align = alClient
    Columns = <
      item
        Caption = '#'
        Width = 60
      end
      item
        Caption = 'IP'
        Width = 120
      end
      item
        Caption = 'PORT'
        Width = 120
      end
      item
        Caption = #29366#24577
        Width = 120
      end
      item
        Caption = #36895#24230
        Width = 120
      end>
    HideSelection = False
    MultiSelect = True
    ReadOnly = True
    RowSelect = True
    PopupMenu = pm
    SmallImages = il
    TabOrder = 0
    ViewStyle = vsReport
    OnColumnClick = LvPxyColumnClick
    OnCompare = LvPxyCompare
  end
  object pnl1: TPanel
    Left = 0
    Top = 0
    Width = 702
    Height = 105
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 1
    object lbl1: TLabel
      Left = 32
      Top = 59
      Width = 48
      Height = 13
      Caption = #36830#25509#36229#26102
    end
    object lbl2: TLabel
      Left = 168
      Top = 59
      Width = 48
      Height = 13
      Caption = #30446#26631#32593#22336
    end
    object lbl3: TLabel
      Left = 488
      Top = 59
      Width = 48
      Height = 13
      Caption = #25104#21151#23383#20018
    end
    object lblThreadCount: TLabel
      Left = 640
      Top = 20
      Width = 12
      Height = 13
      Caption = '20'
    end
    object btnStart: TButton
      Left = 32
      Top = 16
      Width = 75
      Height = 25
      Caption = #24320#22987
      TabOrder = 0
      OnClick = btnStartClick
    end
    object btnPause: TButton
      Left = 120
      Top = 16
      Width = 75
      Height = 25
      Caption = #26242#20572
      TabOrder = 1
      OnClick = btnPauseClick
    end
    object btnGoon: TButton
      Left = 208
      Top = 16
      Width = 75
      Height = 25
      Caption = #32487#32493
      TabOrder = 2
      OnClick = btnGoonClick
    end
    object btnStop: TButton
      Left = 296
      Top = 16
      Width = 75
      Height = 25
      Caption = #20572#27490
      TabOrder = 3
      OnClick = btnStopClick
    end
    object tkbPxy: TTrackBar
      Left = 392
      Top = 16
      Width = 241
      Height = 25
      Max = 256
      Position = 20
      TabOrder = 4
      TickStyle = tsManual
      OnChange = tkbPxyChange
    end
    object edtChkPxyTimeOut: TEdit
      Left = 88
      Top = 56
      Width = 49
      Height = 21
      TabOrder = 5
      Text = '2'
    end
    object udChkPxyTimeOut: TUpDown
      Left = 137
      Top = 56
      Width = 15
      Height = 21
      Associate = edtChkPxyTimeOut
      Position = 2
      TabOrder = 6
    end
    object edtPxyChkUrl: TEdit
      Left = 224
      Top = 56
      Width = 241
      Height = 21
      TabOrder = 7
      Text = 'http://www.baidu.com'
    end
    object edtPxySuccStr: TEdit
      Left = 544
      Top = 56
      Width = 121
      Height = 21
      TabOrder = 8
      Text = #30334#24230
    end
  end
  object stat: TStatusBar
    Left = 0
    Top = 467
    Width = 702
    Height = 19
    Panels = <>
  end
  object pnl2: TPanel
    Left = 0
    Top = 456
    Width = 702
    Height = 11
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 3
    object pbChkPxy: TProgressBar
      Left = 328
      Top = 0
      Width = 374
      Height = 11
      Align = alRight
      TabOrder = 0
    end
  end
  object tlb: TToolBar
    Left = 0
    Top = 105
    Width = 702
    Height = 21
    AutoSize = True
    ButtonHeight = 21
    ButtonWidth = 55
    Caption = 'tlb'
    EdgeInner = esNone
    EdgeOuter = esNone
    Flat = True
    ShowCaptions = True
    TabOrder = 4
    object btn1: TToolButton
      Left = 0
      Top = 0
      Action = actLvPxyImport
    end
    object btn2: TToolButton
      Left = 55
      Top = 0
      Action = actLvPxyExport
    end
    object btn5: TToolButton
      Left = 110
      Top = 0
      Action = actLvPxyClear
    end
    object btn3: TToolButton
      Left = 165
      Top = 0
      Action = actLvPxyDelSel
    end
    object btn4: TToolButton
      Left = 220