userunit.dfm

三层的通用架构

          Align = alClient
          TabOrder = 1
          object Panel11: TPanel
            Left = 1
            Top = 1
            Width = 270
            Height = 24
            Align = alTop
            BevelOuter = bvNone
            Caption = #25805#20316#35774#32622
            TabOrder = 0
            object Bevel2: TBevel
              Left = 0
              Top = 22
              Width = 270
              Height = 2
              Align = alBottom
              Shape = bsBottomLine
            end
          end
          object Panel12: TPanel
            Left = 1
            Top = 25
            Width = 270
            Height = 93
            Align = alTop
            BevelOuter = bvNone
            TabOrder = 1
            object Bevel4: TBevel
              Left = 0
              Top = 91
              Width = 270
              Height = 2
              Align = alBottom
              Shape = bsBottomLine
            end
            object CheckBox6: TCheckBox
              Left = 16
              Top = 10
              Width = 119
              Height = 17
              Caption = #26032#24314#39033#30446'(&N)'
              TabOrder = 0
            end
            object CheckBox7: TCheckBox
              Left = 148
              Top = 10
              Width = 106
              Height = 17
              Caption = #25913#21464#39033#30446#20301#32622'(&M)'
              TabOrder = 1
            end
            object CheckBox8: TCheckBox
              Left = 16
              Top = 31
              Width = 119
              Height = 17
              Caption = #20462#25913#39033#30446#23646#24615'(&R)'
              TabOrder = 2
            end
            object CheckBox9: TCheckBox
              Left = 148
              Top = 31
              Width = 119
              Height = 17
              Caption = #24443#24213#21024#38500#39033#30446'(&D)'
              TabOrder = 3
            end
            object CheckBox10: TCheckBox
              Left = 16
              Top = 52
              Width = 119
              Height = 17
              Caption = #25171#24320#25152#26377#21151#33021#39033'(&O)'
              TabOrder = 4
            end
            object Button2: TButton
              Left = 148
              Top = 55
              Width = 95
              Height = 25
              Action = SetOpen
              TabOrder = 5
            end
          end
          object Panel13: TPanel
            Left = 1
            Top = 118
            Width = 270
            Height = 24
            Align = alTop
            BevelOuter = bvNone
            Caption = #29305#27530#35774#32622
            TabOrder = 2
            object Bevel3: TBevel
              Left = 0
              Top = 22
              Width = 270
              Height = 2
              Align = alBottom
              Shape = bsBottomLine
            end
          end
          object Panel14: TPanel
            Left = 1
            Top = 142
            Width = 270
            Height = 99
            Align = alClient
            BevelOuter = bvNone
            TabOrder = 3
            object CheckBox11: TCheckBox
              Left = 16
              Top = 10
              Width = 145
              Height = 17
              Caption = #20462#25913#25968#25454#24211#36873#39033'(&K)'
              TabOrder = 0
            end
            object CheckBox12: TCheckBox
              Left = 16
              Top = 31
              Width = 121
              Height = 17
              Caption = #36830#25509#25968#25454#24211'(&C)'
              TabOrder = 1
            end
            object CheckBox13: TCheckBox
              Left = 16
              Top = 52
              Width = 137
              Height = 17
              Caption = #20462#25913#31995#32479#36873#39033'(&Y)'
              TabOrder = 3
            end
            object CheckBox14: TCheckBox
              Left = 16
              Top = 73
              Width = 137
              Height = 17
              Caption = #36827#34892#29992#25143#31649#29702'(&U)'
              TabOrder = 4
            end
            object CheckBox15: TCheckBox
              Left = 148
              Top = 73
              Width = 106
              Height = 17
              Caption = #20462#25913#23494#30721'(&W)'
              TabOrder = 5
            end
            object Button3: TButton
              Left = 148
              Top = 27
              Width = 95
              Height = 25
              Action = SetDB
              TabOrder = 2
            end
          end
        end
      end
    end
    object Panel4: TPanel
      Left = 0
      Top = 29
      Width = 619
      Height = 89
      Align = alClient
      BevelOuter = bvNone
      TabOrder = 1
      object Splitter2: TSplitter
        Left = 308
        Top = 0
        Width = 2
        Height = 89
        Cursor = crSizeWE
        ResizeStyle = rsUpdate
        OnCanResize = Splitter1CanResize
      end
      object UserList: TTreeView
        Left = 310
        Top = 0
        Width = 309
        Height = 89
        Align = alClient
        DragCursor = crDefault
        DragMode = dmAutomatic
        HideSelection = False
        Images = ImageList1
        Indent = 19
        PopupMenu = PopupMenu1
        ReadOnly = True
        RightClickSelect = True
        ShowButtons = False
        ShowLines = False
        TabOrder = 1
        TabStop = False
        OnChange = UserListChange
        OnChanging = UserGroupListChanging
        OnContextPopup = UserListContextPopup
        OnEnter = UserGroupListEnter
        OnKeyDown = UserListKeyDown
        OnStartDrag = UserListStartDrag
      end
      object UserGroupList: TTreeView
        Left = 0
        Top = 0
        Width = 308
        Height = 89
        Align = alLeft
        HideSelection = False
        Images = ImageList1
        Indent = 19
        PopupMenu = PopupMenu1
        ReadOnly = True
        RightClickSelect = True
        ShowButtons = False
        ShowLines = False
        TabOrder = 0
        OnChange = UserGroupListChange
        OnChanging = UserGroupListChanging
        OnContextPopup = UserGroupListContextPopup
        OnDragDrop = UserGroupListDragDrop
        OnDragOver = UserGroupListDragOver
        OnEnter = UserGroupListEnter
        OnKeyDown = UserGroupListKeyDown
      end
    end
    object CoolBar1: TCoolBar
      Left = 0
      Top = 0
      Width = 619
      Height = 26
      AutoSize = True
      Bands = <
        item
          Break = False
          Control = ToolBar1
          ImageIndex = -1
          MinHeight = 22
          Width = 615
        end>
      object ToolBar1: TToolBar
        Left = 9
        Top = 0
        Width = 602
        Height = 22
        Align = alClient
        ButtonWidth = 75
        Caption = 'ToolBar1'
        EdgeBorders = []
        Flat = True
        Images = ImageList1
        List = True
        Menu = MainMenu1
        ShowCaptions = True
        TabOrder = 0
      end
    end
    object Panel3: TPanel
      Left = 0
      Top = 26
      Width = 619
      Height = 3
      Align = alTop
      BevelOuter = bvNone
      TabOrder = 0
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 430
    Width = 619
    Height = 14
    Panels = <
      item
        Bevel = pbNone
        Width = 50
      end>
    SimplePanel = False
  end