简单的记事本程序(简单的 )

简单的记事本程序 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ToolWin, ImgList, Menus, BandActn, StdActns, ActnList, ExtActns, ExtCtrls; type TForm1 = class(TForm) MainMenu1: TMainMenu; N1: TMenuItem; N2: TMenuItem; N3: TMenuItem; N4: TMenuItem; N5: TMenuItem; N6: TMenuItem; N7: TMenuItem; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; ImageList1: TImageList; ToolBar1: TToolBar; ToolButton1: TToolButton; ToolButton3: TToolButton; ToolButton2: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; ToolButton12: TToolButton; ToolButton13: TToolButton; StatusBar1: TStatusBar; Memo1: TMemo; ActionList1: TActionList; EditCut1: TEditCut; EditCopy1: TEditCopy; EditPaste1: TEditPaste; EditSelectAll1: TEditSelectAll; EditUndo1: TEditUndo; EditDelete1: TEditDelete; FileNew: TAction; FileOpen: TAction; FileSave: TAction; FileExit: TAction; FormatST: TAction; FormatKT: TAction; FormatLS: TAction; FormatRed: TAction; FormatBlue: TAction; FormatBlack: TAction; CustomizeActionBars1: TCustomizeActionBars; N20: TMenuItem; N21: TMenuItem; R1: TMenuItem; B1: TMenuItem; K1: TMenuItem; N15: TMenuItem; SearchFind1: TSearchFind; SearchReplace1: TSearchReplace; ComboBox1: TComboBox; RichEditUnderline1: TRichEditUnderline; FileOpen1: TFileOpen; mmnBold: TMenuItem; mmnItalic: TMenuItem; mmnUnderline: TMenuItem; procedure FileNewExecute(Sender: TObject); procedure FileOpenExecute(Sender: TObject); procedure FileSaveExecute(Sender: TObject); procedure FileExitExecute(Sender: TObject); procedure FormatSTExecute(Sender: TObject); procedure FormatKTExecute(Sender: TObject); procedure FormatLSExecute(Sender: TObject);