Delphi中用memo写的记事本程序.docVIP

实验四 Delphi组件应用综合实验指导 实验目的 掌握公共对话框组件的属性、事件及应用方法。 掌握应用程序界面设计方法。 掌握基本组件的综合应用。 掌握常用函数的应用。 实验内容 设计一个文本编辑器 实验要求 参照windows记事本程序，编写类似的程序。要求应用公共对话框、菜单组件、工具栏组件、备注框组件，完成菜单设计，工具栏设计，实现文件打开、保存、关闭、文字编辑（修改、查找、替换），文字格式设置等功能，保证主菜单、弹出式菜单、工具栏同步。 此编辑器主要由一个主菜单，一个工具栏，和一个快捷菜单组成，主要功能如下： 主菜单：文件（新建，保存，另存为，打开，打印，退出），编辑（剪切，复制，黏贴，删除，查找，替换），更改（字体，背景），关于（是对此程序的制造者说明）。 工具栏：保存，新建，打开，打印，字体，粗体，斜体，下划线。此工具栏是让用户更方便地使用按键。 快捷菜单：复制，剪切，黏贴。 可以自行设计其他功能，完善文本编辑器。 代码实现 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Menus, StdCtrls, ComCtrls, ImgList, ToolWin, ExtDlgs; type TForm1 = class(TForm) MainMenu1: TMainMenu; E1: TMenuItem; O1: TMenuItem; V1: TMenuItem; N3: TMenuItem; C1: TMenuItem; P2: TMenuItem; F2: TMenuItem; R1: TMenuItem; W1: TMenuItem; N4: TMenuItem; N5: TMenuItem; N1: TMenuItem; N2: TMenuItem; O2: TMenuItem; S1: TMenuItem; A1: TMenuItem; U1: TMenuItem; P1: TMenuItem; X1: TMenuItem; N6: TMenuItem; N7: TMenuItem; PopupMenu1: TPopupMenu; Edit1: TEdit; ToolBar1: TToolBar; ImageList1: TImageList; ToolButton1: TToolButton; ToolButton2: TToolButton; ToolButton3: TToolButton; ToolButton4: TToolButton; ToolButton5: TToolButton; ToolButton6: TToolButton; ToolButton7: TToolButton; ToolButton8: TToolButton; ToolButton9: TToolButton; ToolButton10: TToolButton; ToolButton11: TToolButton; N8: TMenuItem; N9: TMenuItem; N10: TMenuItem; N11: TMenuItem; N12: TMenuItem; N13: TMenuItem; N14: TMenuItem; N15: TMenuItem; N16: TMenuItem; N17: TMenuItem; N18: TMenuItem; N19: TMenuItem; N20: TMenuItem; FontDialog1: TFontDialog; ColorDialog1: TColorDialog; OpenDialog1: TOpenDialog; SaveDialog1: TSaveDialog; PrintDialog1: TPrintDialog; FindDialog1: TFindDialog; ReplaceDialog1: TReplaceDialog; PageSet