unit1.dfm

模仿Windows记事本写的delphi语言程序

        ShortCut = 16464
        OnClick = P1Click
      end
      object N8: TMenuItem
        Caption = '-'
      end
      object N9: TMenuItem
        Caption = #36864#20986'(&X)'
        OnClick = N9Click
      end
    end
    object N10: TMenuItem
      Caption = #32534#36753'(&E)'
      object N11: TMenuItem
        Caption = #25764#38144'(&U)'
        ShortCut = 16474
        OnClick = N11Click
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object N13: TMenuItem
        Caption = #21098#20999'(&T)'
        ShortCut = 16472
        OnClick = N13Click
      end
      object N14: TMenuItem
        Caption = #22797#21046'(&C)'
        ShortCut = 16451
        OnClick = N14Click
      end
      object N15: TMenuItem
        Caption = #31896#24086'(&P)'
        ShortCut = 16470
        OnClick = N15Click
      end
      object N16: TMenuItem
        Caption = #21024#38500'(&L)'
        ShortCut = 46
        OnClick = N16Click
      end
      object N17: TMenuItem
        Caption = '-'
      end
      object N18: TMenuItem
        Caption = #26597#25214'(&F)...'
        ShortCut = 16454
        OnClick = N18Click
      end
      object N19: TMenuItem
        Caption = #26597#25214#19979#19968#20010'(&N) '
        ShortCut = 114
        OnClick = N19Click
      end
      object N20: TMenuItem
        Caption = #26367#25442'(&R)               '
        ShortCut = 16456
        OnClick = N20Click
      end
      object N21: TMenuItem
        Caption = #36716#21040'(&G)...'
        Enabled = False
        ShortCut = 16455
      end
      object N22: TMenuItem
        Caption = '-'
      end
      object N23: TMenuItem
        Caption = #20840#36873'(&A)'
        ShortCut = 16449
        OnClick = N23Click
      end
      object N24: TMenuItem
        Caption = #26102#38388'/'#26085#26399'(&D)'
        ShortCut = 116
        OnClick = N24Click
      end
    end
    object N25: TMenuItem
      Caption = #26684#24335'(&O)'
      object W1: TMenuItem
        Caption = #33258#21160#25442#34892'(&W)'
        OnClick = W1Click
      end
      object F1: TMenuItem
        Caption = #23383#20307'(&F)...'
        OnClick = F1Click
      end
    end
    object N26: TMenuItem
      Caption = #26597#30475'(&V)'
      object N27: TMenuItem
        Caption = #29366#24577#26639'(&S)'
        OnClick = N27Click
      end
    end
    object N28: TMenuItem
      Caption = #24110#21161'(&H)'
      object N29: TMenuItem
        Caption = #24110#21161#20027#39064'(&H)'
      end
      object N30: TMenuItem
        Caption = #20851#20110#35760#20107#26412'(&A)'
        OnClick = N30Click
      end
    end
  end
  object PopupMenu1: TPopupMenu
    Left = 160
    Top = 160
    object N31: TMenuItem
      Caption = #25764#38144'(&U)'
    end
    object N32: TMenuItem
      Caption = '-'
    end
    object N33: TMenuItem
      Caption = #21098#20999'(&T)'
      OnClick = N33Click
    end
    object N34: TMenuItem
      Caption = #22797#21046'(&C)'
      OnClick = N34Click
    end
    object N35: TMenuItem
      Caption = #31896#24086'(&P)'
      OnClick = N35Click
    end
    object N36: TMenuItem
      Caption = #21024#38500'(&D)'
      OnClick = N36Click
    end
    object N37: TMenuItem
      Caption = '-'
    end
    object N38: TMenuItem
      Caption = #20840#36873'(&A)'
      OnClick = N38Click
    end
    object N39: TMenuItem
      Caption = '-'
    end
    object N40: TMenuItem
      Caption = #20174#21491#21040#24038#30340#38405#35835#39034#24207'(&R)'
      OnClick = N40Click
    end
    object Unicode1: TMenuItem
      Caption = #26174#31034'Unicode'#25511#21046#23383#31526'(&S)'
    end
    object Unicode2: TMenuItem
      Caption = #25554#20837'Unicode'#25511#21046#23383#31526'(&I)'
    end
    object N41: TMenuItem
      Caption = '-'
    end
    object IME1: TMenuItem
      Caption = #20851#38381'IME(&L)'
    end
    object N42: TMenuItem
      Caption = #37325#26032#36716#25442'(&R)'
    end
    object N43: TMenuItem
      Caption = #35774#32622#32972#26223'(&T)'
      OnClick = N43Click
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 208
    Top = 160
  end
  object SaveDialog1: TSaveDialog
    Left = 256
    Top = 160
  end
  object FontDialog1: TFontDialog
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    Left = 296
    Top = 160
  end
  object ReplaceDialog1: TReplaceDialog
    OnFind = ReplaceDialogFind
    OnReplace = ReplaceDialogReplace
    Left = 296
    Top = 232
  end
  object FindDialog1: TFindDialog
    OnFind = FindDialogFind
    Left = 112
    Top = 232
  end
  object PrintDialog1: TPrintDialog
    Left = 160
    Top = 232
  end
  object PrinterSetupDialog1: TPrinterSetupDialog
    Left = 208
    Top = 232
  end
  object Timer1: TTimer
    Left = 256
    Top = 232
  end
  object ColorDialog1: TColorDialog
    Left = 352
    Top = 232
  end
end