Delphi控件源码

开发平台：

Delphi

Unit1.~dfm：源码内容

							object Form1: TForm1
  Left = 125
  Top = 141
  Width = 537
  Height = 379
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 31
    Width = 344
    Height = 302
    Align = alClient
    ScrollBars = ssVertical
    TabOrder = 0
    WordWrap = False
    OnChange = Memo1Change
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 333
    Width = 529
    Height = 19
    Panels = <
      item
        Width = 50
      end>
  end
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 529
    Height = 31
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 2
    DesignSize = (
      529
      31)
    object Label1: TLabel
      Left = 2
      Top = 8
      Width = 128
      Height = 13
      Caption = 'Thread              Entry URL:'
    end
    object Edit1: TEdit
      Left = 128
      Top = 4
      Width = 247
      Height = 21
      Anchors = [akLeft, akTop, akRight]
      TabOrder = 0
      Text = 'http://www.v111.com/'
      OnChange = Edit1Change
    end
    object Button1: TButton
      Left = 378
      Top = 3
      Width = 75
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'Run'
      TabOrder = 1
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 454
      Top = 3
      Width = 75
      Height = 24
      Anchors = [akTop, akRight]
      Caption = 'Stop'
      TabOrder = 2
      OnClick = Button2Click
    end
    object SpinEdit1: TSpinEdit
      Left = 38
      Top = 4
      Width = 41
      Height = 22
      MaxValue = 255
      MinValue = 1
      TabOrder = 3
      Value = 10
    end
  end
  object Memo2: TMemo
    Left = 344
    Top = 31
    Width = 185
    Height = 302
    Align = alRight
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object WinHTTP1: TWinHTTP
    AcceptTypes = '*/*'
    Agent = '[-=WinHTTP demo=-]'
    Left = 12
    Top = 370
  end
end

						