childform.dfm.~1~

《Delphi 2005程序设计及其应用开发》源代码

object MDIChild: TMDIChild
  Caption = 'MDIChild'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  Height = 375
  Menu = MainMenu1
  Position = poDefault
  Visible = True
  Width = 544
  Left = 8
  Top = 8
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Align = alClient
    Lines.Strings = (
      'Memo1')
    TabOrder = 0
    Left = 0
    Top = 0
    Width = 536
    Height = 321
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 32
    object FileF1: TMenuItem
      Caption = '&File'
      object New1: TMenuItem
        Caption = '&New'
        OnClick = New1Click
      end
      object Open1: TMenuItem
        Caption = '&Open'
      end
      object Save1: TMenuItem
        Caption = '&Save'
      end
      object SaveAs1: TMenuItem
        Caption = 'Save &As'
      end
      object Close1: TMenuItem
        Caption = 'Close'
        OnClick = Close1Click
      end
      object Exit1: TMenuItem
        Caption = 'Close All'
        OnClick = Closeall1Click
      end
    end
    object Edit1: TMenuItem
      Caption = '&Edit'
      GroupIndex = 1
      object Cut1: TMenuItem
        Caption = 'Cu&t'
        ShortCut = 16472
        OnClick = Cut1Click
      end
      object Copy1: TMenuItem
        Caption = '&Copy'
        ShortCut = 16451
        OnClick = Copy1Click
      end
      object Paste1: TMenuItem
        Caption = '&Paste'
        ShortCut = 16470
        OnClick = Paste1Click
      end
      object Replace1: TMenuItem
        Caption = 'Delete.'
        OnClick = Replace1Click
      end
      object SelectALL1: TMenuItem
        Caption = 'Select ALL'
        OnClick = SelectALL1Click
      end
    end
    object Help1: TMenuItem
      Caption = '&Help'
      GroupIndex = 4
      object Contents1: TMenuItem
        Caption = '&Contents'
      end
      object SearchforHelpOn1: TMenuItem
        Caption = '&Search for Help On...'
      end
      object HowtoUseHelp1: TMenuItem
        Caption = '&How to Use Help'
      end
      object About1: TMenuItem
        Caption = '&About...'
      end
    end
  end
end