Delphi控件源码

开发平台：

Delphi

frame_zsg.~dfm：源码内容

							object Frame1: TFrame1
  Left = 0
  Top = 0
  Width = 402
  Height = 42
  AutoSize = True
  TabOrder = 0
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 402
    Height = 42
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 36
        Width = 398
      end>
    object ToolBar1: TToolBar
      Left = 9
      Top = 0
      Width = 385
      Height = 36
      ButtonHeight = 30
      ButtonWidth = 79
      Caption = 'ToolBar1'
      Images = mainfrm.zsg
      List = True
      ParentShowHint = False
      ShowCaptions = True
      ShowHint = True
      TabOrder = 0
      Transparent = True
      object ToolButton1: TToolButton
        Left = 0
        Top = 2
        Caption = #22686#21152'(&A)'
        ImageIndex = 0
      end
      object ToolButton2: TToolButton
        Left = 79
        Top = 2
        Caption = #20462#25913'(&E)'
        ImageIndex = 1
      end
      object ToolButton3: TToolButton
        Left = 158
        Top = 2
        Caption = #21024#38500'(&D)'
        ImageIndex = 2
        Wrap = True
      end
      object ToolButton4: TToolButton
        Left = 0
        Top = 32
        Caption = #21047#26032'(&R)'
        ImageIndex = 3
      end
      object ToolButton5: TToolButton
        Left = 79
        Top = 32
        Caption = #26597#25214'(&F)'
        ImageIndex = 4
      end
    end
  end
end

						