main.dfm

Delphi编写 IE搜索工具条 应用bho技术

object FrmMain: TFrmMain
  Left = 192
  Top = 205
  BorderStyle = bsNone
  Caption = 'SgBar'
  ClientHeight = 63
  ClientWidth = 613
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 12
  object PanelRight: TPanel
    Left = 464
    Top = 0
    Width = 149
    Height = 63
    Align = alRight
    BevelOuter = bvNone
    TabOrder = 0
    object MenuBtn: TRzToolButton
      Left = 64
      Top = 8
      Width = 14
      Height = 22
      GradientColorStyle = gcsMSOffice
      DropDownMenu = PopupMenu
      ShowCaption = True
      UseToolbarButtonSize = False
      UseToolbarShowCaption = False
      UseToolbarVisualStyle = False
      ToolStyle = tsDropDown
      VisualStyle = vsGradient
    end
    object CmdSearch: TRzToolButton
      Left = 8
      Top = 8
      Width = 55
      Height = 22
      GradientColorStyle = gcsSystem
      ImageIndex = 0
      Images = DM.ImageList
      ShowCaption = True
      UseToolbarButtonSize = False
      UseToolbarShowCaption = False
      UseToolbarVisualStyle = False
      VisualStyle = vsGradient
      Caption = #25628#32034
      OnClick = CmdSearchClick
    end
    object CmdSet: TRzToolButton
      Left = 80
      Top = 8
      Width = 55
      Height = 22
      GradientColorStyle = gcsSystem
      ImageIndex = 1
      Images = DM.ImageList
      ShowCaption = True
      UseToolbarButtonSize = False
      UseToolbarShowCaption = False
      UseToolbarVisualStyle = False
      VisualStyle = vsGradient
      Caption = #35774#32622
      OnClick = CmdSetClick
    end
  end
  object PanelLeft: TPanel
    Left = 0
    Top = 0
    Width = 464
    Height = 63
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object CbKey: TRzComboBox
      Left = 8
      Top = 8
      Width = 153
      Height = 20
      Ctl3D = False
      FrameController = DM.FrameController
      ItemHeight = 12
      ParentCtl3D = False
      TabOrder = 0
      OnKeyUp = CbKeyKeyUp
    end
  end
  object MenuController: TRzMenuController
    GradientColorStyle = gcsMSOffice
    Left = 336
    Top = 16
  end
  object PopupMenu: TPopupMenu
    AutoHotkeys = maManual
    OwnerDraw = True
    Left = 240
    Top = 24
  end
end