unit1.dfm

很多人都说webbrowser修改不了GOOKIE 所以做了一个这样的实例..希望能帮助大家 里面全部有注释

object Form1: TForm1
  Left = 192
  Top = 107
  Width = 785
  Height = 612
  Caption = 'COOKIE'#20462#25913
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label6: TLabel
    Left = 256
    Top = 77
    Width = 30
    Height = 13
    Caption = #32447#31243' :'
  end
  object Label5: TLabel
    Left = 8
    Top = 44
    Width = 39
    Height = 13
    Caption = #22320#22336#26639':'
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 777
    Height = 585
    ActivePage = TabSheet1
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #27983#35272#32593#39029
      object StatusBar1: TStatusBar
        Left = 0
        Top = 538
        Width = 769
        Height = 19
        Panels = <
          item
            Width = 600
          end
          item
            Width = 50
          end>
      end
      object WebBrowser1: TWebBrowser
        Left = 0
        Top = 73
        Width = 769
        Height = 465
        Align = alClient
        TabOrder = 1
        OnProgressChange = WebBrowser1ProgressChange
        OnDownloadBegin = WebBrowser1DownloadBegin
        OnDownloadComplete = WebBrowser1DownloadComplete
        OnDocumentComplete = WebBrowser1DocumentComplete
        ControlData = {
          4C0000007A4F00000F3000000000000000000000000000000000000000000000
          000000004C000000000000000000000001000000E0D057007335CF11AE690800
          2B2E126208000000000000004C0000000114020000000000C000000000000046
          8000000000000000000000000000000000000000000000000000000000000000
          00000000000000000100000000000000000000000000000000000000}
      end
      object CoolBar1: TCoolBar
        Left = 0
        Top = 0
        Width = 769
        Height = 73
        Bands = <
          item
            Control = ToolBar1
            ImageIndex = -1
            MinHeight = 40
            Width = 765
          end
          item
            Control = Panel1
            ImageIndex = -1
            Width = 765
          end>
        object ToolBar1: TToolBar
          Left = 9
          Top = 0
          Width = 752
          Height = 40
          AutoSize = True
          ButtonHeight = 36
          ButtonWidth = 31
          Caption = 'ToolBar1'
          Images = ImageList1
          ShowCaptions = True
          TabOrder = 0
          object ToolButton1: TToolButton
            Left = 0
            Top = 2
            Caption = #21518#36864
            ImageIndex = 0
            OnClick = ToolButton1Click
          end
          object ToolButton2: TToolButton
            Left = 31
            Top = 2
            Width = 8
            Caption = 'ToolButton2'
            ImageIndex = 1
            Style = tbsSeparator
          end
          object ToolButton3: TToolButton
            Left = 39
            Top = 2
            Caption = #21069#36827
            ImageIndex = 1
            OnClick = ToolButton3Click
          end
          object ToolButton4: TToolButton
            Left = 70
            Top = 2
            Width = 8
            Caption = 'ToolButton4'
            ImageIndex = 2
            Style = tbsSeparator
          end
          object ToolButton5: TToolButton
            Left = 78
            Top = 2
            Caption = #20572#27490
            ImageIndex = 2
            OnClick = ToolButton5Click
          end
          object ToolButton6: TToolButton
            Left = 109
            Top = 2
            Width = 8
            Caption = 'ToolButton6'
            ImageIndex = 3
            Style = tbsSeparator
          end
          object ToolButton7: TToolButton
            Left = 117
            Top = 2
            Caption = #21047#26032
            ImageIndex = 3
            OnClick = ToolButton7Click
          end
          object ToolButton8: TToolButton
            Left = 148
            Top = 2
            Width = 8
            Caption = 'ToolButton8'
            ImageIndex = 4
            Style = tbsSeparator
          end
          object ToolButton9: TToolButton
            Left = 156
            Top = 2
            AutoSize = True
            Caption = #20027#39029
            ImageIndex = 4
            OnClick = ToolButton9Click
          end
          object Panel2: TPanel
            Left = 191
            Top = 2
            Width = 514
            Height = 36
            TabOrder = 0
            object Label2: TLabel
              Left = 8
              Top = 11
              Width = 50
              Height = 13
              Caption = 'COOKIES:'
            end
            object Edit2: TEdit
              Left = 64
              Top = 8
              Width = 449
              Height = 21
              TabOrder = 0
            end
          end
          object Button2: TButton
            Left = 705
            Top = 2
            Width = 40
            Height = 36
            Caption = #20462#25913
            TabOrder = 1
            OnClick = Button2Click
          end
        end
        object Panel1: TPanel
          Left = 9
          Top = 42
          Width = 752
          Height = 25
          TabOrder = 1
          object Label1: TLabel
            Left = 8
            Top = 8
            Width = 39
            Height = 13
            Caption = #22320#22336#26639':'
          end
          object Label3: TLabel
            Left = 664
            Top = 8
            Width = 3
            Height = 13
            Caption = ' '
          end
          object Label4: TLabel
            Left = 624
            Top = 8
            Width = 33
            Height = 13
            Caption = #25490#21517' : '
          end
          object Edit1: TEdit
            Left = 56