原创力文档- 1、本文档共33页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
实验四 Delphi组件应用综合实验指导
实验目的
掌握公共对话框组件的属性、事件及应用方法。掌握应用程序界面设计方法。
掌握基本组件的综合应用。掌握常用函数的应用。
实验内容
设计一个文本编辑器实验要求
参照windows记事本程序，编写类似的程序。要求应用公共对话框、菜单组件、工具栏组件、备注框组件，完成菜单设计，工具栏设计，实现文件打开、保存、关闭、文字编辑（修改、查找、替换），文字格式设置等功能，保证主菜单、弹出式菜单、工具栏同步。
此编辑器主要由一个主菜单，一个工具栏，和一个快捷菜单组成，主要功能如下：
主菜单：文件（新建，保存，另存为，打开，打印，退出，）编辑（剪切，复制，黏贴，删除，查找，替换），更改（字体，背景），关于（是对此程序的制造者说明）。
工具栏：保存，新建，打开，打印，字体，粗体，斜体，下划线。此工具栏是让用户更方便地使用按键。
快捷菜单：复制，剪切，黏贴。
可以自行设计其他功能，完善文本编辑器。
1、代码实现
unitUnit1;
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;
Integer);
ReplaceDialog1:TReplaceDialog;PageSetupDialog1:TPageSetupDialog;Memo1:TMemo;
D1:TMenuItem;L1:TMenuItem;w2:TMenuItem;
procedureToolButton8Click(Sender:TObject);procedureToolButton9Click(Sender:TObject);procedureToolButton10Click(Sender:TObject);procedureN11Click(Sender:TObje
文档评论（0）