cmediator.dfm

delphi深度探索第二版随书光盘所附内容

object FormMediator: TFormMediator
  Left = 212
  Top = 297
  Width = 661
  Height = 306
  Caption = 'FormMediator'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 120
  TextHeight = 16
  object lstPerson: TListBox
    Left = 0
    Top = 0
    Width = 433
    Height = 266
    Align = alLeft
    ItemHeight = 16
    TabOrder = 0
    OnClick = lstPersonClick
  end
  object pnlPerson: TPanel
    Left = 433
    Top = 0
    Width = 220
    Height = 266
    Align = alClient
    TabOrder = 1
    object lbl1: TLabel
      Left = 16
      Top = 16
      Width = 51
      Height = 16
      Caption = #21592#24037#22995#21517':'
    end
    object lbl3: TLabel
      Left = 16
      Top = 48
      Width = 39
      Height = 16
      Caption = #20445#38505#37329':'
    end
    object lbl4: TLabel
      Left = 16
      Top = 114
      Width = 27
      Height = 16
      Caption = #24037#36164':'
    end
    object lbl5: TLabel
      Left = 16
      Top = 86
      Width = 39
      Height = 16
      Caption = #25163#26426#36153':'
    end
    object edtName: TEdit
      Left = 72
      Top = 13
      Width = 121
      Height = 24
      TabOrder = 0
      OnChange = edtNameChange
    end
    object edtSafe: TEdit
      Left = 72
      Top = 48
      Width = 121
      Height = 24
      TabOrder = 1
      OnChange = edtNameChange
    end
    object edtSalary: TEdit
      Left = 72
      Top = 112
      Width = 121
      Height = 24
      TabOrder = 2
      OnChange = edtNameChange
    end
    object edtPhone: TEdit
      Left = 72
      Top = 80
      Width = 121
      Height = 24
      TabOrder = 3
      OnChange = edtNameChange
    end
  end
end