mainfm.~dfm

利用delphi编程实现一个简单的web浏览器。实现浏览器的基本功能。

object WebBrowerForm: TWebBrowerForm
  Left = 168
  Top = 105
  Width = 587
  Height = 411
  HelpType = htKeyword
  HelpContext = 1
  Caption = #25105#30340#27983#35272#22120
  Color = clBtnFace
  Font.Charset = ANSI_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  HelpFile = 'WBHelp.hlp'
  Menu = MainMenu
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 579
    Height = 90
    HelpContext = 4
    AutoSize = True
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 38
        Width = 538
      end
      item
        Break = False
        Control = Animate
        ImageIndex = -1
        MinHeight = 16
        Width = 35
      end
      item
        Control = CBAddress
        ImageIndex = -1
        MinHeight = 21
        Text = #36755#20837#22320#22336#65306
        Width = 575
      end
      item
        Control = ToolBar2
        ImageIndex = -1
        MinHeight = 23
        Text = #21451#24773#38142#25509#65306
        Width = 575
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 525
      Height = 38
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 31
      Caption = 'ToolBar1'
      DisabledImages = ImageList
      Flat = True
      Images = ImageList
      ShowCaptions = True
      TabOrder = 0
      object TBBack: TToolButton
        Left = 0
        Top = 0
        Action = ActionBack
        ImageIndex = 2
      end
      object TBForward: TToolButton
        Left = 31
        Top = 0
        Action = ActionForward
        ImageIndex = 0
      end
      object TBStop: TToolButton
        Left = 62
        Top = 0
        Action = ActionStop
        ImageIndex = 6
      end
      object TBRefresh: TToolButton
        Left = 93
        Top = 0
        Action = ActionRefresh
        ImageIndex = 4
      end
    end
    object Animate: TAnimate
      Left = 549
      Top = 11
      Width = 22
      Height = 16
      CommonAVI = aviFindFile
      StopFrame = 8
    end
    object CBAddress: TComboBox
      Left = 73
      Top = 40
      Width = 498
      Height = 21
      HelpKeyword = 'ToolBar'
      HelpContext = 4
      ItemHeight = 13
      TabOrder = 2
      OnClick = CBAddressClick
      OnKeyDown = CBAddressKeyDown
    end
    object ToolBar2: TToolBar
      Left = 73
      Top = 63
      Width = 498
      Height = 23
      AutoSize = True
      ButtonHeight = 21
      ButtonWidth = 31
      Caption = 'ToolBar2'
      Flat = True
      ShowCaptions = True
      TabOrder = 3
      object TBSina: TToolButton
        Left = 0
        Top = 0
        Caption = #26032#28010
        ImageIndex = 0
        OnClick = TBSinaClick
      end
      object TBSohu: TToolButton
        Left = 31
        Top = 0
        Caption = #25628#29392
        ImageIndex = 1
        OnClick = TBSohuClick
      end
    end
  end
  object WebBrowser: TWebBrowser
    Left = 0
    Top = 90
    Width = 579
    Height = 275
    HelpType = htKeyword
    HelpKeyword = '1'
    Align = alClient
    TabOrder = 1
    OnDownloadBegin = WebBrowserDownloadBegin
    OnDownloadComplete = WebBrowserDownloadComplete
    OnBeforeNavigate2 = WebBrowserBeforeNavigate2
    ControlData = {
      4C000000D73B00006C1C00000000000000000000000000000000000000000000
      000000004C000000000000000000000001000000E0D057007335CF11AE690800
      2B2E126208000000000000004C0000000114020000000000C000000000000046
      8000000000000000000000000000000000000000000000000000000000000000
      00000000000000000100000000000000000000000000000000000000}
  end
  object MainMenu: TMainMenu
    Left = 64
    Top = 224
    object MIFile: TMenuItem
      Caption = #25991#20214'(&F)'
      object MIOpenFile: TMenuItem
        Caption = #25171#24320#26412#22320#25991#20214
        OnClick = MIOpenFileClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MIExit: TMenuItem
        Caption = #36864#20986
        OnClick = MIExitClick
      end
    end
    object N5: TMenuItem
      Caption = #26597#30475'(&V)'
      object MIToolBar: TMenuItem
        Caption = #24037#20855#26465
        Checked = True
        OnClick = MIToolBarClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object MIStop: TMenuItem
        Action = ActionStop
      end
      object MIRefresh: TMenuItem
        Action = ActionRefresh
      end
    end
    object N10: TMenuItem
      Caption = #36716#21040'(&G)'
      object MIBack: TMenuItem
        Action = ActionBack
      end
      object MIForward: TMenuItem
        Action = ActionForward
        Enabled = False
      end
    end
    object N13: TMenuItem
      Caption = #24110#21161'(&H)'
      OnClick = N13Click
    end
  end
  object ImageList: TImageList
    Left = 104
    Top = 224
    Bitmap = {
      494C01010A000E00040010001000FFFFFFFFFF10FFFFFFFFFFFFFFFF424D3600
      0000000000003600000028000000400000004000000001001000000000000020
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000