unit1.dfm.~1~

Delphi 2005程序设计教程_实例源文件和教学课件

object Form1: TForm1
  Left = 13
  Top = 13
  Width = 412
  Height = 277
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  OnClose = FormClose
  DesignSize = (
    404
    250)
  PixelsPerInch = 96
  TextHeight = 13
  object Label2: TLabel
    Left = 8
    Top = 56
    Width = 57
    Height = 13
    Caption = #21327#35758#29256#26412
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label1: TLabel
    Left = 8
    Top = 22
    Width = 22
    Height = 13
    Caption = 'URL'
  end
  object Label3: TLabel
    Left = 200
    Top = 56
    Width = 32
    Height = 13
    Caption = #26041#27861
  end
  object Memo1: TMemo
    Left = 8
    Top = 89
    Width = 393
    Height = 153
    TabOrder = 0
  end
  object Button1: TButton
    Left = 338
    Top = 48
    Width = 49
    Height = 23
    Anchors = [akTop, akRight]
    Caption = #33719#21462
    TabOrder = 1
    OnClick = Button1Click
  end
  object ComboBox1: TComboBox
    Left = 40
    Top = 16
    Width = 353
    Height = 21
    ItemHeight = 13
    TabOrder = 2
    Text = 'http://localhost/index.htm'
  end
  object ComboBox2: TComboBox
    Left = 72
    Top = 50
    Width = 105
    Height = 21
    ItemHeight = 13
    TabOrder = 3
    OnChange = ComboBox2Change
    Items.Strings = (
      '1.0'
      '1.1')
  end
  object ComboBox3: TComboBox
    Left = 240
    Top = 50
    Width = 89
    Height = 21
    ItemHeight = 13
    TabOrder = 4
    Items.Strings = (
      'Head'
      'Get')
  end
  object IdHTTP1: TIdHTTP
    AuthRetries = 0
    AuthProxyRetries = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 120
    Top = 184
  end
end