unit1.dfm

这是我用Delphi仿造windows中自带记事本的功能设计的一个记事本小程序

object Form1: TForm1
  Left = 236
  Top = 185
  Width = 696
  Height = 480
  Caption = 
    #35760#20107#26412'                                                    -------^v' +
    '^------  '#35874#35874#20320#30340#20351#29992#65281' '
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  ShowHint = True
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 2
    Width = 687
    Height = 431
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -27
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Lines.Strings = (
      '            '#20449#24687'032'#29677
      '              17'#21495
      '             '#40644#26234#25935)
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
  end
  object MainMenu1: TMainMenu
    Left = 504
    Top = 8
    object N1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N2: TMenuItem
        Caption = #26032#24314'(&N)'
        ShortCut = 16462
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #25171#24320'(&O)'
        ShortCut = 16463
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = #20445#23384'(&S)'
        ShortCut = 16467
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = #21478#23384#20026'(&A)...'
        OnClick = N5Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N6: TMenuItem
        Caption = #36864#20986'(&Exit)'
        OnClick = N6Click
      end
    end
    object N7: TMenuItem
      Caption = #32534#36753'(&E)'
      object Undo1: TMenuItem
        Caption = #25764#28040#65288'&Undo'#65289
        ShortCut = 16474
        OnClick = Undo1Click
      end
      object N23: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = N9Click
      end
      object N13: TMenuItem
        Caption = #31896#36148'(&P)'
        ShortCut = 16470
        OnClick = N13Click
      end
      object N10: TMenuItem
        Caption = #21098#20999'(&X)'
        ShortCut = 16472
        OnClick = N10Click
      end
      object N11: TMenuItem
        Caption = #21024#38500'(&D)'
        ShortCut = 46
        OnClick = N11Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object N12: TMenuItem
        Caption = #26597#25214'(&F)...'
        ShortCut = 16454
        OnClick = N12Click
      end
      object N15: TMenuItem
        Caption = #26367#25442'(&R)...'
        ShortCut = 16456
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = '-'
      end
      object Selectall1: TMenuItem
        Caption = #20840#36873#65288'&Select all'#65289
        ShortCut = 16449
        OnClick = Selectall1Click
      end
      object N24: TMenuItem
        Caption = #25554#20837#26085#26399
        OnClick = N24Click
      end
      object N17: TMenuItem
        Caption = #25554#20837#26102#38388
        OnClick = N17Click
      end
    end
    object N18: TMenuItem
      Caption = #26684#24335'(&O)'
      object N25: TMenuItem
        Caption = #33258#21160#25442#34892
        Checked = True
        OnClick = N25Click
      end
      object N19: TMenuItem
        Caption = #23383#20307'(&Font)'
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = #23383#20307#39068#33394'(&Color)'
        OnClick = N20Click
      end
      object BgColor1: TMenuItem
        Caption = #32972#26223#39068#33394#65288'&BgColor'#65289
        OnClick = BgColor1Click
      end
    end
    object N21: TMenuItem
      Caption = #24110#21161'(&H)'
      object N22: TMenuItem
        Caption = #20851#20110
        OnClick = N22Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 544
    Top = 8
  end
  object OpenDialog1: TOpenDialog
    Filter = #25991#26412#25991#26723#65288'*.txt'#65289'|*.txt|ALL'#65288'*.*'#65289'|*.*'
    Left = 456
    Top = 16
  end
  object SaveDialog1: TSaveDialog
    Filter = #25991#26412#25991#26723#65288'*.txt'#65289'|*.txt|ALL(*.*)|*.*'
    Left = 400
    Top = 16
  end
  object ColorDialog1: TColorDialog
    Left = 344
    Top = 16
  end
  object FindDialog1: TFindDialog
    OnFind = findevent
    Left = 304
    Top = 16
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = replacefind
    OnReplace = replaceevent
    Left = 608
    Top = 24
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 448
    Top = 64
  end
end