mainunit.dfm

三层的通用架构

object TheMainForm: TTheMainForm
  Left = 204
  Top = 231
  Hint = #31243#24207#20027#31383#21475
  ActiveControl = ListView1
  AutoScroll = False
  Caption = 'Delphi6'#32534#31243#26694#26550
  ClientHeight = 454
  ClientWidth = 684
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poDesktopCenter
  OnCanResize = FormCanResize
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnPaint = FormPaint
  OnResize = PageScroller1Resize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter1: TSplitter
    Left = 201
    Top = 77
    Width = 3
    Height = 357
    Cursor = crSizeWE
    Hint = #24038#21491#25302#21160#25913#21464#20301#32622
    ResizeStyle = rsUpdate
    OnCanResize = Splitter1CanResize
  end
  object Splitter2: TSplitter
    Left = 0
    Top = 74
    Width = 684
    Height = 3
    Cursor = crSizeNS
    Hint = #19978#19979#25302#21160#25913#21464#20301#32622
    Align = alTop
    MinSize = 26
    ResizeStyle = rsUpdate
    OnCanResize = Splitter2CanResize
  end
  object CoolBar1: TCoolBar
    Left = 0
    Top = 0
    Width = 684
    Height = 74
    Hint = '|'#31995#32479#33756#21333#21450#24037#20855#26639
    AutoSize = True
    Bands = <
      item
        Break = False
        Control = PageScroller2
        ImageIndex = -1
        MinHeight = 22
        MinWidth = 65
        Width = 680
      end
      item
        Control = PageScroller1
        ImageIndex = -1
        MinHeight = 22
        MinWidth = 75
        Width = 680
      end
      item
        Control = Panel4
        HorizontalOnly = True
        ImageIndex = -1
        MinHeight = 22
        MinWidth = 45
        Width = 680
      end>
    Color = clBtnFace
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentColor = False
    ParentFont = False
    ParentShowHint = False
    PopupMenu = CoolBarPopupMenu
    ShowHint = True
    OnResize = PageScroller1Resize
    object Panel4: TPanel
      Left = 9
      Top = 48
      Width = 667
      Height = 22
      Hint = '|'#23450#20301#26639
      Align = alTop
      BevelOuter = bvNone
      BiDiMode = bdLeftToRight
      Ctl3D = True
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentBiDiMode = False
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
      OnResize = Panel4Resize
      object Label2: TLabel
        Left = 0
        Top = 5
        Width = 42
        Height = 12
        Caption = #23450#20301'(&D)'
        FocusControl = ComboBoxEx1
      end
      object ComboBoxEx1: TComboBoxEx
        Left = 45
        Top = 0
        Width = 572
        Height = 22
        ItemsEx.CaseSensitive = False
        ItemsEx.SortType = stNone
        ItemsEx = <>
        StyleEx = []
        ItemHeight = 16
        TabOrder = 0
        OnClick = ComboBoxEx1Click
        OnKeyDown = ComboBoxEx1KeyDown
        Images = ImageList1
        DropDownCount = 8
      end
      object ToolBar2: TToolBar
        Left = 616
        Top = 0
        Width = 51
        Height = 22
        Align = alRight
        AutoSize = True
        ButtonWidth = 51
        Caption = 'ToolBar2'
        EdgeBorders = []
        Flat = True
        HotImages = ToolBarHotImageList
        Images = ToolBarImageList
        List = True
        ShowCaptions = True
        TabOrder = 1
        object ToolButton_Goto: TToolButton
          Left = 0
          Top = 0
          Hint = '|'#23450#20301#26639
          Action = GoToNode
          ImageIndex = 9
        end
      end
    end
    object PageScroller1: TPageScroller
      Left = 9
      Top = 24
      Width = 667
      Height = 22
      Hint = '|'#24120#29992#24037#20855#26639
      Align = alClient
      AutoScroll = False
      Color = clBtnFace
      Control = Panel5
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentColor = False
      ParentFont = False
      TabOrder = 1
      TabStop = False
      OnResize = PageScroller1Resize
      OnScroll = PageScroller1Scroll
      object Panel5: TPanel
        Left = 0
        Top = 0
        Width = 667
        Height = 22
        Hint = '|'#24120#29992#24037#20855#26639
        BevelOuter = bvNone
        TabOrder = 0
        object ToolBar1: TToolBar
          Left = 0
          Top = 0
          Width = 68
          Height = 22
          Hint = '|'#24120#29992#24037#20855#26639
          Align = alNone
          ButtonWidth = 51
          Caption = #24120#29992#24037#20855#26639
          Color = clBtnFace
          EdgeBorders = []
          Flat = True
          Font.Charset = GB2312_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = #23435#20307
          Font.Style = []
          HotImages = ToolBarHotImageList
          Images = ToolBarImageList
          List = True
          ParentColor = False
          ParentFont = False
          ShowCaptions = True
          TabOrder = 4
          object ToolButton_Back: TToolButton
            Left = 0
            Top = 0
            Hint = #21518#36864'|'#24120#29992#24037#20855#26639
            Action = Back
            AutoSize = True
            Caption = #21518#36864
            DropdownMenu = BackPopupMenu
            ImageIndex = 0
            Style = tbsDropDown
          end
        end
        object ToolBar3: TToolBar
          Left = 68
          Top = 0
          Width = 129
          Height = 22
          Hint = '|'#24120#29992#24037#20855#26639
          Align = alNone
          Caption = 'ToolBar3'
          EdgeBorders = []
          Flat = True
          HotImages = ToolBarHotImageList
          Images = ToolBarImageList
          List = True
          TabOrder = 2
          object ToolButton_Forward: TToolButton
            Left = 0
            Top = 0
            Hint = #21069#36827'|'#24120#29992#24037#20855#26639
            Action = ForwardTo
            AutoSize = True
            Caption = #21069#36827
            DropdownMenu = ForwardPopupMenu
            ImageIndex = 1
            Style = tbsDropDown
          end
          object ToolButton_Parent: TToolButton
            Left = 40
            Top = 0
            Hint = #21521#19978'|'#24120#29992#24037#20855#26639
            Action = UpTo
            AutoSize = True
            Caption = #21521#19978
            ImageIndex = 2
          end
          object ToolButton_Update: TToolButton
            Left = 67
            Top = 0
            Hint = #21047#26032'|'#24120#29992#24037#20855#26639
            Action = Update
            AutoSize = True
            Caption = #21047#26032
            ImageIndex = 8
          end
          object ToolButton_Home: TToolButton
            Left = 94
            Top = 0
            Hint = #40664#35748#39033'|'#24120#29992#24037#20855#26639
            Action = DefaultGroup
            AutoSize = True
            Caption = #40664#35748#39033
            ImageIndex = 16
          end
          object ToolButton1: TToolButton
            Left = 121
            Top = 0
            Width = 8
            Caption = 'ToolButton1'
            Style = tbsSeparator