mainview.dfm

Delphi利用MVC开发的典型例子

object ViewMain: TViewMain
  Left = 177
  Top = 157
  Width = 696
  Height = 480
  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 = 415
    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 = 415
    ActivePage = TabSheet1
    Align = alLeft
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Index'
      object pnlIndex: TPanel
        Left = 0
        Top = 0
        Width = 281
        Height = 387
        Align = alClient
        BevelOuter = bvNone
        TabOrder = 0
      end
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 415
    Width = 688
    Height = 19
    Panels = <
      item
        Width = 150
      end
      item
        Width = 50
      end>
    SimplePanel = False
  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