ietestmainf.dfm

delphi写的 HTML控制,简单代码,转

object MainForm: TMainForm
  Left = 192
  Top = 107
  Width = 696
  Height = 356
  Caption = 'Control Internet Explorer'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 688
    Height = 41
    Align = alTop
    TabOrder = 0
    object Label1: TLabel
      Left = 180
      Top = 14
      Width = 25
      Height = 13
      Caption = 'URL:'
    end
    object OpenBtn: TButton
      Left = 8
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Open IE'
      TabOrder = 0
      OnClick = OpenBtnClick
    end
    object CloseBtn: TButton
      Left = 83
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Close IE'
      TabOrder = 1
      OnClick = CloseBtnClick
    end
    object UrlEdit: TEdit
      Left = 212
      Top = 10
      Width = 381
      Height = 21
      TabOrder = 2
    end
    object BrowseBtn: TButton
      Left = 604
      Top = 8
      Width = 75
      Height = 25
      Caption = 'Go To URL'
      TabOrder = 3
      OnClick = BrowseBtnClick
    end
  end
  object Panel2: TPanel
    Left = 32
    Top = 136
    Width = 185
    Height = 153
    TabOrder = 1
    object Label2: TLabel
      Left = 20
      Top = 11
      Width = 27
      Height = 13
      Caption = 'Show'
    end
    object Label3: TLabel
      Left = 94
      Top = 11
      Width = 22
      Height = 13
      Caption = 'Hide'
    end
    object AddrBarShowBtn: TButton
      Left = 17
      Top = 35
      Width = 75
      Height = 25
      Caption = 'Address Bar'
      TabOrder = 0
      OnClick = AddrBarShowBtnClick
    end
    object AddrBarHideBtn: TButton
      Left = 92
      Top = 35
      Width = 75
      Height = 25
      Caption = 'Address Bar'
      TabOrder = 1
      OnClick = AddrBarHideBtnClick
    end
    object MenuBarShowBtn: TButton
      Left = 17
      Top = 60
      Width = 75
      Height = 25
      Caption = 'Menu Bar'
      TabOrder = 2
      OnClick = MenuBarShowBtnClick
    end
    object MenuBarHideBtn: TButton
      Left = 92
      Top = 60
      Width = 75
      Height = 25
      Caption = 'Menu Bar'
      TabOrder = 3
      OnClick = MenuBarHideBtnClick
    end
    object StatusBarHideBtn: TButton
      Left = 92
      Top = 110
      Width = 75
      Height = 25
      Caption = 'Status Bar'
      TabOrder = 4
      OnClick = StatusBarHideBtnClick
    end
    object StatusBarShowBtn: TButton
      Left = 17
      Top = 110
      Width = 75
      Height = 25
      Caption = 'Status Bar'
      TabOrder = 5
      OnClick = StatusBarShowBtnClick
    end
    object ShowToolbarBtn: TButton
      Left = 17
      Top = 85
      Width = 75
      Height = 25
      Caption = 'Toolbar'
      TabOrder = 6
      OnClick = ShowToolbarBtnClick
    end
    object HideToolbarBtn: TButton
      Left = 92
      Top = 85
      Width = 75
      Height = 25
      Caption = 'Toolbar'
      TabOrder = 7
      OnClick = HideToolbarBtnClick
    end
  end
  object Panel3: TPanel
    Left = 241
    Top = 136
    Width = 185
    Height = 153
    TabOrder = 2
    object Label4: TLabel
      Left = 20
      Top = 11
      Width = 22
      Height = 13
      Caption = 'True'
    end
    object Label5: TLabel
      Left = 94
      Top = 11
      Width = 25
      Height = 13
      Caption = 'False'
    end
    object FullScreenTrueBtn: TButton
      Left = 17
      Top = 35
      Width = 75
      Height = 25
      Caption = 'Full Screen'
      TabOrder = 0
      OnClick = FullScreenTrueBtnClick
    end
    object Button3: TButton
      Left = 17
      Top = 60
      Width = 75
      Height = 25
      Caption = 'Resizable'
      TabOrder = 1
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 92
      Top = 60
      Width = 75
      Height = 25
      Caption = 'Resizable'
      TabOrder = 2
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 92
      Top = 110
      Width = 75
      Height = 25
      Caption = 'Visible'
      TabOrder = 3
      OnClick = Button5Click
    end
    object Button6: TButton
      Left = 17
      Top = 110
      Width = 75
      Height = 25
      Caption = 'Visible'
      TabOrder = 4
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 17
      Top = 85
      Width = 75
      Height = 25
      Caption = 'Silent'
      TabOrder = 5
      OnClick = Button7Click
    end
    object Button8: TButton
      Left = 92
      Top = 85
      Width = 75
      Height = 25
      Caption = 'Silent'
      TabOrder = 6
      OnClick = Button8Click
    end
    object FullScreenFalseBtn: TButton
      Left = 92
      Top = 35
      Width = 75
      Height = 25
      Caption = 'Full Screen'
      TabOrder = 7
      OnClick = FullScreenFalseBtnClick
    end
  end
  object GroupBox1: TGroupBox
    Left = 16
    Top = 48
    Width = 317
    Height = 57
    Caption = 'Navigate'
    TabOrder = 3
    object BackBtn: TButton
      Left = 8
      Top = 20
      Width = 75
      Height = 25
      Caption = '< Back'
      TabOrder = 0
      OnClick = BackBtnClick
    end
    object ForwardBtn: TButton
      Left = 83
      Top = 20
      Width = 75
      Height = 25
      Caption = 'Forward >'
      TabOrder = 1
      OnClick = ForwardBtnClick
    end
    object HomeBtn: TButton
      Left = 158
      Top = 20
      Width = 75
      Height = 25
      Caption = 'Home'
      TabOrder = 2
      OnClick = HomeBtnClick
    end
    object SearchBtn: TButton
      Left = 233
      Top = 20
      Width = 75
      Height = 25
      Caption = 'Search'
      TabOrder = 3
      OnClick = SearchBtnClick
    end
  end
  object GroupBox2: TGroupBox
    Left = 344
    Top = 48
    Width = 329
    Height = 57
    Caption = 'Status Bar Text'
    TabOrder = 4
    object StatusTextSetBtn: TButton
      Left = 278
      Top = 20
      Width = 41
      Height = 25
      Caption = 'Set'
      TabOrder = 0
      OnClick = StatusTextSetBtnClick
    end
    object StatusTextEdit: TEdit
      Left = 12
      Top = 22
      Width = 257
      Height = 21
      TabOrder = 1
    end
  end
  object Panel4: TPanel
    Left = 444
    Top = 136
    Width = 213
    Height = 153
    TabOrder = 5
    object Label6: TLabel
      Left = 16
      Top = 31
      Width = 22
      Height = 13
      Caption = 'Top:'
    end
    object Label7: TLabel
      Left = 120
      Top = 31
      Width = 21
      Height = 13
      Caption = 'Left:'
    end
    object Label8: TLabel
      Left = 7
      Top = 64
      Width = 34
      Height = 13
      Caption = 'Height:'
    end
    object Label9: TLabel
      Left = 111
      Top = 64
      Width = 31
      Height = 13
      Caption = 'Width:'
    end
    object TopEdit: TEdit
      Left = 48
      Top = 28
      Width = 47
      Height = 21
      TabOrder = 0
    end
    object LeftEdit: TEdit
      Left = 149
      Top = 28
      Width = 47
      Height = 21
      TabOrder = 1
    end
    object HeightEdit: TEdit
      Left = 48
      Top = 61
      Width = 47
      Height = 21
      TabOrder = 2
    end
    object WidthEdit: TEdit
      Left = 149
      Top = 61
      Width = 47
      Height = 21
      TabOrder = 3
    end
    object SetPositionBtn: TButton
      Left = 72
      Top = 99
      Width = 75
      Height = 25
      Caption = 'Set'
      TabOrder = 4
      OnClick = SetPositionBtnClick
    end
  end
  object MainMenu1: TMainMenu
    Left = 460
    Top = 244
    object File1: TMenuItem
      Caption = '&File'
      object Save1: TMenuItem
        Caption = '&Save'
        OnClick = Save1Click
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
        OnClick = SaveAs1Click
      end
      object Print1: TMenuItem
        Caption = '&Print'
        OnClick = Print1Click
      end
      object PrintPreveiw1: TMenuItem
        Caption = 'Print P&reveiw'
        OnClick = PrintPreveiw1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Exit1: TMenuItem
        Caption = 'E&xit'
        OnClick = Exit1Click
      end
    end
    object Browser1: TMenuItem
      Caption = '&Browser'
      object Refresh1: TMenuItem
        Caption = '&Refresh'
        OnClick = Refresh1Click
      end
      object Stop1: TMenuItem
        Caption = '&Stop'
        OnClick = Stop1Click
      end
    end
  end
end