textedit.dfm

一些小程序

object Form1: TForm1
  Left = 192
  Top = 114
  Width = 696
  Height = 480
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = Main1
  OldCreateOrder = False
  PopupMenu = Popup1
  PixelsPerInch = 96
  TextHeight = 13
  object Memo1: TMemo
    Left = 0
    Top = 0
    Width = 688
    Height = 426
    Align = alClient
    Lines.Strings = (
      '')
    PopupMenu = Popup1
    TabOrder = 0
  end
  object Main1: TMainMenu
    Left = 144
    Top = 184
    object N1: TMenuItem
      Caption = #25991#20214'(&F)'
      object N2: TMenuItem
        Caption = #26032#24314'(&N)'
      end
      object N3: TMenuItem
        Caption = #25171#24320'...'
        OnClick = N3Click
      end
      object N4: TMenuItem
        Caption = #20445#23384'(&S)'
      end
      object N5: TMenuItem
        Caption = #36864#20986'(&X)'
      end
    end
    object N6: TMenuItem
      Caption = #32534#36753'(&E)'
      object N7: TMenuItem
        Caption = #22797#21046'(&C)'
      end
      object T1: TMenuItem
        Caption = #21098#20999'(&T)'
      end
      object N8: TMenuItem
        Caption = #31896#36148'(&P)'
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object L1: TMenuItem
        Caption = #21024#38500'(&L)'
      end
      object N9: TMenuItem
        Caption = #25764#28040'(&U)'
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = #20840#36873'(&A)'
      end
    end
  end
  object Popup1: TPopupMenu
    Left = 208
    Top = 184
    object C1: TMenuItem
      Caption = #22797#21046'(&C)'
    end
    object T2: TMenuItem
      Caption = #21098#20999'(&T)'
    end
    object N12: TMenuItem
      Caption = #31896#36148'(&P)'
    end
    object A2: TMenuItem
      Caption = #20840#36873'(&A)'
    end
  end
  object OpenDialog1: TOpenDialog
    Filter = #25991#26412#25991#20214'(*.txt)|*.txt|'#25152#26377#25991#20214'(*.*)|*.*'
    Left = 136
    Top = 144
  end
  object SaveDialog1: TSaveDialog
    Left = 192
    Top = 120
  end
end