aboutview.dfm

Delphi利用MVC开发的典型例子

object ViewAbout: TViewAbout
  Left = 317
  Top = 297
  BorderStyle = bsDialog
  Caption = 'About...'
  ClientHeight = 228
  ClientWidth = 308
  Color = clBtnFace
  DefaultMonitor = dmDesktop
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object CloseButton: TButton
    Tag = 10
    Left = 214
    Top = 193
    Width = 78
    Height = 25
    Cancel = True
    Caption = '&Close'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ModalResult = 1
    ParentFont = False
    TabOrder = 0
    IsControl = True
  end
  object GroupBox1: TGroupBox
    Tag = 9
    Left = 7
    Top = 6
    Width = 290
    Height = 179
    Caption = 'Version Information'
    TabOrder = 1
    object ProgramIcon: TImage
      Tag = 8
      Left = 32
      Top = 25
      Width = 32
      Height = 32
      AutoSize = True
      Center = True
      Stretch = True
      IsControl = True
    end
    object ProductName: TLabel
      Tag = 9
      Left = 89
      Top = 27
      Width = 111
      Height = 13
      Caption = 'eMVC Base Application'
      IsControl = True
    end
    object Bevel1: TBevel
      Left = 13
      Top = 68
      Width = 265
      Height = 2
    end
    object ProductLabel: TLabel
      Tag = 9
      Left = 89
      Top = 43
      Width = 40
      Height = 13
      Caption = 'Example'
      IsControl = True
    end
    object VersionMemo: TMemo
      Tag = 9
      Left = 20
      Top = 80
      Width = 253
      Height = 89
      TabStop = False
      Alignment = taCenter
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      ReadOnly = True
      TabOrder = 0
    end
  end
end