web_main.dfm

利用delphi控制浏览器的例子

object Form1: TForm1
  Left = 199
  Top = 108
  Align = alClient
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = #26032#24320#25143#26032#19994#21153#21253
  ClientHeight = 554
  ClientWidth = 979
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object WebBrowser1: TWebBrowser
    Left = 0
    Top = 59
    Width = 979
    Height = 476
    Align = alClient
    TabOrder = 0
    OnDocumentComplete = WebBrowser1DocumentComplete
    ControlData = {
      4C0000002F650000323100000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E12620C000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 535
    Width = 979
    Height = 19
    Panels = <
      item
        Width = 80
      end
      item
        Width = 180
      end
      item
        Width = 150
      end
      item
        Width = 50
      end>
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 979
    Height = 59
    Bands = <
      item
        Control = Edit1
        ImageIndex = -1
        Width = 975
      end
      item
        Control = Edit2
        ImageIndex = -1
        Width = 975
      end>
    object Edit1: TEdit
      Left = 9
      Top = 0
      Width = 962
      Height = 25
      AutoSelect = False
      AutoSize = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = #22320#22336
      OnChange = Edit1Change
    end
    object Edit2: TEdit
      Left = 9
      Top = 27
      Width = 962
      Height = 25
      ReadOnly = True
      TabOrder = 1
      Text = 'Edit2'
    end
  end
  object MainMenu1: TMainMenu
    Left = 168
    Top = 88
    object N1: TMenuItem
      Caption = #25511#21046
      object N4: TMenuItem
        Caption = #24320#22987#21463#29702
        OnClick = N4Click
      end
    end
    object N3: TMenuItem
      Caption = #36164#26009
      object N5: TMenuItem
        Caption = #23548#20837
        OnClick = N5Click
      end
      object N8: TMenuItem
        Caption = #28165#31354
        OnClick = N8Click
      end
      object N2: TMenuItem
        Caption = #21024#38500
        OnClick = N2Click
      end
    end
    object N9: TMenuItem
      Caption = #24110#21161
      object N7: TMenuItem
        Caption = #21672#35810
        OnClick = N7Click
      end
      object N10: TMenuItem
        Caption = #32593#31449
        OnClick = N10Click
      end
    end
    object N6: TMenuItem
      Caption = #26597#30475#35760#24405
      OnClick = N6Click
    end
    object N11: TMenuItem
      Caption = #26356#26032#27880#20876#22320#22336
      OnClick = N11Click
    end
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = '*.txt'
    Filter = '*.txt|*.txt|*.*|*.*'
    Left = 80
    Top = 88
  end
  object OpenDialog1: TOpenDialog
    DefaultExt = '*.txt'
    Filter = '*.txt|*.txt'
    Left = 48
    Top = 88
  end
  object XPManifest1: TXPManifest
    Left = 128
    Top = 88
  end
  object IdHTTP1: TIdHTTP
    MaxLineAction = maException
    ReadTimeout = 0
    AllowCookies = True
    ProxyParams.BasicAuthentication = False
    ProxyParams.ProxyPort = 0
    Request.ContentLength = -1
    Request.ContentRangeEnd = 0
    Request.ContentRangeStart = 0
    Request.ContentType = 'text/html'
    Request.Accept = 'text/html, */*'
    Request.BasicAuthentication = False
    Request.UserAgent = 'Mozilla/3.0 (compatible; Indy Library)'
    HTTPOptions = [hoForceEncodeParams]
    Left = 200
    Top = 88
  end
end