frmmain.dfm.~7~

一个浏览器 比较简单的程序,适合处学者使用和学习.有意见联系我 .

object Form1: TForm1
  Left = 277
  Top = 163
  Caption = 'webob'#27983#35272#22120
  ClientHeight = 490
  ClientWidth = 707
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PopupMenu = PopupMenu1
  Position = poDesigned
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 471
    Width = 707
    Height = 19
    Panels = <>
    ExplicitTop = 474
    ExplicitWidth = 692
  end
  object PanelWEB: TPanel
    Left = 181
    Top = 70
    Width = 526
    Height = 401
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 1
    ExplicitTop = 97
    ExplicitWidth = 511
    ExplicitHeight = 377
    object PageControl1: TPageControl
      Left = 1
      Top = 1
      Width = 524
      Height = 399
      Align = alClient
      ParentShowHint = False
      PopupMenu = PopupMenu1
      ShowHint = True
      TabOrder = 0
      OnMouseDown = PageControl1MouseDown
      ExplicitWidth = 509
      ExplicitHeight = 375
    end
  end
  object PanelTop: TPanel
    Left = 0
    Top = 0
    Width = 707
    Height = 70
    Align = alTop
    Alignment = taLeftJustify
    AutoSize = True
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 2
    ExplicitWidth = 692
    object MainToolBar: TToolBar
      Left = 2
      Top = 2
      Width = 703
      Height = 36
      Cursor = crArrow
      AutoSize = True
      ButtonHeight = 36
      ButtonWidth = 43
      EdgeBorders = [ebRight]
      Images = ilToolBar
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      Transparent = True
      ExplicitLeft = 1
      ExplicitTop = 1
      ExplicitWidth = 690
      object ToolbtnBack: TToolButton
        Left = 0
        Top = 0
        Cursor = crHandPoint
        Hint = 'Navigate Back'
        AutoSize = True
        Caption = #36820#22238
        Enabled = False
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolbtnBackClick
      end
      object ToolBtnForward: TToolButton
        Left = 35
        Top = 0
        Cursor = crHandPoint
        Hint = 'Navigate Forward'
        AutoSize = True
        Caption = #21069#36827
        Enabled = False
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolBtnForwardClick
      end
      object ToolBtnStop: TToolButton
        Left = 70
        Top = 0
        Cursor = crHandPoint
        Hint = 'Stop loading'
        AutoSize = True
        Caption = ' '#20572#27490
        Enabled = False
        ImageIndex = 0
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolBtnStopClick
      end
      object ToolButton10: TToolButton
        Left = 108
        Top = 0
        Width = 8
        Caption = 'ToolButton10'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object ToolBtnRefresh: TToolButton
        Left = 116
        Top = 0
        Cursor = crHandPoint
        Hint = 'Refresh Active Tab'
        AutoSize = True
        Caption = #21047#26032
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolBtnRefreshClick
      end
      object ToolBtnHome: TToolButton
        Left = 151
        Top = 0
        Cursor = crHandPoint
        Hint = 'Go Home'
        AutoSize = True
        Caption = #20027#39029
        ImageIndex = 1
        OnClick = ToolBtnHomeClick
      end
      object ToolButton11: TToolButton
        Left = 186
        Top = 0
        Width = 8
        Caption = 'ToolButton11'
        ImageIndex = 10
        Style = tbsSeparator
      end
      object ToolBtnSearch: TToolButton
        Left = 194
        Top = 0
        Cursor = crHandPoint
        Hint = 'Search...'
        AutoSize = True
        Caption = #25628#32034
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = ToolBtnSearchClick
      end
      object ToolBtnAccesories: TToolButton
        Left = 229
        Top = 0
        Cursor = crHandPoint
        Hint = 'Show Favorites'
        AutoSize = True
        Caption = #36164#26009#39302
        Down = True
        ImageIndex = 8
        ParentShowHint = False
        ShowHint = True
        Style = tbsCheck
        OnClick = ToolBtnAccesoriesClick
      end
      object Spacer: TToolButton
        Left = 276
        Top = 0
        Width = 10
        Caption = 'Spacer'
        ImageIndex = 10
        Style = tbsSeparator
      end
    end
    object CoolBar3: TCoolBar
      Left = 2
      Top = 38
      Width = 703
      Height = 30
      AutoSize = True
      Bands = <
        item
          Control = ToolBar1
          ImageIndex = -1
          MinHeight = 26
          Width = 699
        end>
      ExplicitLeft = 1
      ExplicitTop = 37
      ExplicitWidth = 690
      object ToolBar1: TToolBar
        Left = 10
        Top = 0
        Width = 685
        Height = 26
        AutoSize = True
        ButtonHeight = 26
        ButtonWidth = 27
        Caption = 'ToolBar1'
        EdgeInner = esNone
        EdgeOuter = esNone
        Images = ImageList2
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0