main.dfm

Delphi网络应用开发的源代码

object FrmBrowser: TFrmBrowser
  Left = 175
  Top = 91
  Width = 774
  Height = 526
  Caption = 'Web '#27983#35272#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 120
  TextHeight = 16
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 766
    Height = 83
    AutoSize = True
    Bands = <
      item
        Control = TBMenu
        ImageIndex = -1
        Width = 762
      end
      item
        Control = TBBtn
        ImageIndex = -1
        Width = 350
      end
      item
        Break = False
        Control = TBLink
        ImageIndex = -1
        Text = #36830#25509
        Width = 410
      end
      item
        Control = ComboAddr
        ImageIndex = -1
        Text = #22320#22336'(&D)'
        Width = 545
      end
      item
        Break = False
        Control = ToolBar1
        ImageIndex = -1
        Width = 215
      end>
    Images = ImageList1
    object TBMenu: TToolBar
      Left = 9
      Top = 0
      Width = 749
      Height = 25
      ButtonHeight = 24
      ButtonWidth = 31
      EdgeBorders = []
      Flat = True
      Menu = MainMenu1
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
    end
    object TBBtn: TToolBar
      Left = 9
      Top = 27
      Width = 337
      Height = 25
      ButtonWidth = 63
      Caption = 'TBBtn'
      EdgeBorders = []
      Flat = True
      HotImages = ImaListHot
      Images = ImaListUnFocus
      List = True
      ShowCaptions = True
      TabOrder = 1
      object ToolButton1: TToolButton
        Left = 0
        Top = 0
        Action = ActBackward
      end
      object ToolButton2: TToolButton
        Left = 63
        Top = 0
        Action = ActFoward
      end
      object ToolButton9: TToolButton
        Left = 126
        Top = 0
        Action = ActStop
      end
      object ToolButton8: TToolButton
        Left = 189
        Top = 0
        Action = ActRefrech
      end
      object ToolButton7: TToolButton
        Left = 252
        Top = 0
        Action = ActAddTo
        Caption = #25910#34255#22841
      end
    end
    object TBLink: TToolBar
      Left = 389
      Top = 27
      Width = 369
      Height = 25
      ButtonWidth = 51
      Caption = 'TBLink'
      EdgeBorders = []
      Flat = True
      Images = ImageList1
      List = True
      ShowCaptions = True
      TabOrder = 2
      Wrapable = False
      object ToolButton3: TToolButton
        Left = 0
        Top = 0
        Action = ActLinkHUST
        ImageIndex = 0
      end
      object ToolButton4: TToolButton
        Left = 51
        Top = 0
        Action = ActLinkToNetEase
      end
      object ToolButton5: TToolButton
        Left = 102
        Top = 0
        Action = ActLinkToSina
      end
      object ToolButton6: TToolButton
        Left = 153
        Top = 0
        Action = ActLinkToSohu
      end
    end
    object ComboAddr: TComboBoxEx
      Left = 64
      Top = 54
      Width = 477
      Height = 25
      ItemsEx = <>
      ItemHeight = 16
      TabOrder = 3
      OnKeyDown = ComboAddrKeyDown
      OnSelect = ComboAddrSelect
      Images = ImageList1
      DropDownCount = 8
    end
    object ToolBar1: TToolBar
      Left = 556
      Top = 54
      Width = 202
      Height = 25
      ButtonWidth = 51
      Caption = 'ToolBar1'
      EdgeBorders = []
      Flat = True
      HotImages = ImaListHot
      Images = ImaListUnFocus
      List = True
      ShowCaptions = True
      TabOrder = 4
      object ToolButton10: TToolButton
        Left = 0
        Top = 0
        Action = ActGoto
      end
    end
  end
  object Panel1: TPanel
    Left = 8
    Top = 137
    Width = 741
    Height = 313
    BevelInner = bvLowered
    Caption = 'Panel1'
    TabOrder = 1
    object WebBrowser: TWebBrowser
      Left = 2
      Top = 2
      Width = 737
      Height = 309
      Align = alClient
      TabOrder = 0
      ControlData = {
        4C000000F03C00008D1900000000000000000000000000000000000000000000
        000000004C000000000000000000000001000000E0D057007335CF11AE690800
        2B2E126208000000000000004C0000000114020000000000C000000000000046
        8000000000000000000000000000000000000000000000000000000000000000
        00000000000000000100000000000000000000000000000000000000}
    end
  end
  object MainMenu1: TMainMenu
    AutoMerge = True
    Images = ImageList1
    Left = 312
    Top = 224
    object N1: TMenuItem
      Caption = #25991#20214
      object N6: TMenuItem
        Action = ActOpen
      end
      object N7: TMenuItem
        Action = ActClose
      end
    end
    object N2: TMenuItem
      Caption = #32534#36753
      object N8: TMenuItem
        Action = ActCopy
      end
      object N10: TMenuItem
        Action = ActSelAll
      end
    end
    object N3: TMenuItem
      Caption = #26597#30475
      OnClick = N3Click
      object N13: TMenuItem
        Action = ActGoto
      end
      object N15: TMenuItem
        Action = ActRefrech
      end
      object N14: TMenuItem
        Action = ActStop