mainview.dfm

Delphi利用MVC开发的典型例子

object ViewMain: TViewMain
  Left = -4
  Top = -4
  Width = 1032
  Height = 776
  Caption = 'An eMVC Based Application'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter1: TSplitter
    Left = 289
    Top = 0
    Width = 3
    Height = 711
    Cursor = crHSplit
  end
  object Label1: TLabel
    Left = 376
    Top = 88
    Width = 9
    Height = 37
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clGreen
    Font.Height = -32
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 289
    Height = 711
    ActivePage = TabSheet1
    Align = alLeft
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Index'
      object pnlIndex: TPanel
        Left = 0
        Top = 0
        Width = 281
        Height = 683
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 711
    Width = 1024
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  end
  object PageControl2: TPageControl
    Left = 292
    Top = 0
    Width = 732
    Height = 711
    ActivePage = TabSheet2
    Align = alClient
    TabOrder = 2
    object TabSheet2: TTabSheet
      Caption = 'Info Area'
      object Splitter2: TSplitter
        Left = 0
        Top = 273
        Width = 724
        Height = 3
        Cursor = crVSplit
        Align = alTop
      end
      object pnlChildren: TPanel
        Left = 0
        Top = 0
        Width = 724
        Height = 273
        Align = alTop
        BevelInner = bvLowered
        BevelOuter = bvNone
        Caption = 'pnlChildren'
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 0
        Top = 276
        Width = 724
        Height = 407
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 1
        object Splitter3: TSplitter
          Left = 337
          Top = 0
          Width = 4
          Height = 407
          Cursor = crHSplit
        end
        object pnlMother: TPanel
          Left = 341
          Top = 0
          Width = 383
          Height = 407
          Align = alClient
          BevelInner = bvLowered
          BevelOuter = bvNone
          Caption = 'pnlChildren'
          TabOrder = 0
        end
        object pnlFather: TPanel
          Left = 0
          Top = 0
          Width = 337
          Height = 407
          Align = alLeft
          BevelInner = bvLowered
          BevelOuter = bvNone
          Caption = 'pnlChildren'
          TabOrder = 1
        end
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 80
    Top = 40
    object File1: TMenuItem
      Caption = '&File'
      object mnuExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuExitClick
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      object mnuHelp: TMenuItem
        Caption = '&Help'
      end
      object mnuAbout: TMenuItem
        Caption = '&About...'
      end
    end
  end
end