mainfrm.dfm

Delphi7高级应用开发配书源代码

object MainForm: TMainForm
  Left = 200
  Top = 108
  Width = 385
  Height = 235
  Caption = #33258#21160#21270#26381#21153#22120
  Color = clAppWorkSpace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIForm
  Menu = MainMenu
  OldCreateOrder = True
  Position = poDefault
  WindowMenu = WindowMenu
  PixelsPerInch = 96
  TextHeight = 13
  object MainMenu: TMainMenu
    Left = 8
    Top = 152
    object FileMenu: TMenuItem
      Caption = #25991#20214'(&F)'
      object FileNewItem: TMenuItem
        Caption = #26032#24314'(&N)'
        OnClick = FileNewItemClick
      end
      object FileOpenItem: TMenuItem
        Caption = #25171#24320'(&O)...'
        OnClick = FileOpenItemClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object FileExitItem: TMenuItem
        Caption = #36864#20986'(&E)'
        OnClick = FileExitItemClick
      end
    end
    object WindowMenu: TMenuItem
      Caption = #31383#21475'(&W)'
      GroupIndex = 1
      object WindowTileItem: TMenuItem
        Caption = #27700#24179#24179#38138'(&T)'
        OnClick = WindowTileItemClick
      end
      object WindowCascadeItem: TMenuItem
        Caption = #32423#32852'(&C)'
        OnClick = WindowCascadeItemClick
      end
      object WindowArrangeIconsItem: TMenuItem
        Caption = #25353#22270#26631'(&A)'
        OnClick = WindowArrangeIconsItemClick
      end
    end
  end
  object OpenDialog: TOpenDialog
    DefaultExt = 'txt'
    Filter = 'Text file (*.txt)|*.txt|Any file (*.*)|*.*'
    Options = [ofHideReadOnly]
    Left = 40
    Top = 152
  end
  object SaveDialog: TSaveDialog
    Filter = 'Text file (*.txt)|*.txt|Any file (*.*)|*.*'
    Options = [ofHideReadOnly]
    Left = 72
    Top = 152
  end
end