umainform.dfm

观察者模式delphi实例实现,同时注意软件的设计

object MainForm: TMainForm
  Left = 216
  Top = 141
  AutoScroll = False
  Caption = 'MainForm'
  ClientHeight = 453
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object Splitter: TSplitter
    Left = 185
    Top = 33
    Width = 5
    Height = 420
    Cursor = crHSplit
    ResizeStyle = rsUpdate
  end
  object ToolBar1: TToolBar
    Left = 0
    Top = 0
    Width = 688
    Height = 33
    Caption = 'ToolBar1'
    TabOrder = 0
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Caption = 'ToolButton1'
      ImageIndex = 0
      OnClick = ToolButton1Click
    end
  end
  object PnlLeft: TPanel
    Left = 0
    Top = 33
    Width = 185
    Height = 420
    Align = alLeft
    BevelOuter = bvNone
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 0
      Top = 233
      Width = 185
      Height = 5
      Cursor = crVSplit
      Align = alTop
      ResizeStyle = rsUpdate
    end
    object PnlTop: TPanel
      Left = 0
      Top = 0
      Width = 185
      Height = 233
      Align = alTop
      TabOrder = 0
    end
    object PnlBot: TPanel
      Left = 0
      Top = 238
      Width = 185
      Height = 182
      Align = alClient
      TabOrder = 1
    end
  end
  object PnlRight: TPanel
    Left = 190
    Top = 33
    Width = 498
    Height = 420
    Align = alClient
    TabOrder = 2
  end
end