记事本程序的设计与实现(实验版)

实验设计和步骤
7. 菜单“打开”功能代码 方法：单击“打开”菜单项，在该菜单的单击事件相应过程中，编写代 码：
8. 菜单“保存”功能代码 方法：单击“保存”菜单项，在该菜单的单击事件相应过程中，编写代码：
实验设计和步骤
9. 菜单“自动换行”功能代码 方法：单击“自动换行”菜单项，在该菜单的单击事件相应过程中，编 写代码：
实验设计和步骤
把一个TOpenDialog打开文件对话框组件放到窗体上，并在对象观察器里 设置它的属性： Filter属性:文件类型过滤器，用来设置哪些类型的文件可以在对话框中
显示。
设置为：文本文件 (*.txt)|*.txt InitialDir属性：指定对话框打开时的默认目录。 设置为：D:\
1. 菜单“新建”功能代码 方法：单击“新建”菜单项，在该菜单的单击事件相应过程中，编写代码：
2. 菜单“复制”功能代码 方法：单击“复制”菜单项，在该菜单的单击事件相应过程中，编写代码：
实验设计和步骤
3. 菜单“粘贴”功能代码 方法：单击“粘贴”菜单项，在该菜单的单击事件相应过程中，编写代 码：
各菜单项如图：
实验设计和步骤
注意：当设计好一个菜单后，并不代表在程序执行时就可以使用，因为窗体
（Form）并不知道还有快捷菜单，为此还要设置窗体的PopupMenu属性，单
击PopupMenu属性右边的下三角按钮，选择窗体中所创建的快捷菜单的名字 如PopupMenul，这样在程序执行时，当右击窗体后，便会弹出相应的菜单。
实验设计和步骤
11. 菜单“字体设置”功能代码 方法：单击“字体设置”菜单项，在该菜单的单击事件相应过程中，编写代 码：
12. 快捷菜单“复制”功能代码(其它右键快捷菜单的用法相同) 方法：单击快捷菜单“复制”菜单项，在该菜单的单击事件相应过程中，编 写代码：
实验设计和步骤
13. 补充：判断如果文本框中原来有内容，当“新建”时，需要提示用户是 否要保存。
实验设计和步骤
• 设置快捷键(在对象观察器(按F11)里设置) 方法：先双击主菜单组件TMainMenu，然后选中要设置的菜单项， 按F11调出对象观察器，修改它的ShortCut属性即可。
实验设计和步骤
7. TPopupMenu组件
弹出菜单组件 用来设计用户的弹出菜单，将一个组件添加到窗 体双击该组件后，在此可进行弹出菜单设计。
相关知识：消息框 (8.3)
表8-5 Abuttom参数的取值（消息框按钮类型）
取值 mbYes mbNo mbOk mbCancel mbHelp mbAbort mbRetry mbIgnore mbAll
说明 一个表面上显示“Yes”的按钮 一个表面上显示“No”的按钮 一个表面上显示“OK”的按钮 一个表面上显示“Cancel”的按钮 一个表面上显示“Help”的按钮 一个表面上显示“Abort”的按钮 一个表面上显示“Retry”的按钮 一个表面上显示“Ignore”的按钮 一个表面上显示“All”的按钮
相关知识：对话框组件
9. TSaveDialog保存文件对话框
主要属性
FileName属性 ：用户为要保存的文件指定文件名和路径信息


Filter属性:文件类型过滤器，把文件保存为哪些类型的文件
InitialDir属性：指定对话框打开时的默认目录。 Execute方法：打开对话框，如果用户选择“保存”按钮则返回true， 否则返回false;
2. ScrollBars属性：用来设置文本框是否有滚动条。 3. Clear方法：清空文本框中的内容。
4. CopyToClipboard方法：将文本框中选择文本拷贝到剪贴板上。
5. CutToClipboard方法：将文本框中选择的文本剪切到剪贴板上。
6. PasteFromClipboard方法：将剪贴板内容拷贝到文本框中光标所在的位置。 7. SelectAll方法：选择文本框中的所有文本。 8. SaveToFile方法：将当前文本框中的文本以指定的文件名保存到磁盘中。 9. LoadFromFile方法：将磁盘上指定文件装载到文本框中并显示。 10.Wordwrap:设置文本是否可以自动换行。
相关知识：对话框组件
8. TOpenDiaቤተ መጻሕፍቲ ባይዱog打开文件对话框
主要属性
FileName属性 ：保存了用户选中的文件的文件名和路径信息 Filter属性:文件类型过滤器，用来设置哪些类型的文件可以在对话 框中显示。 InitialDir属性：指定对话框打开时的默认目录。 Execute方法：打开对话框，如果用户选择“打开”按钮则返回true， 否则返回false;
Atype参数指定消息框的类型，它的取值及含义见表8-
4。
Abuttons参数指定消息框包含哪些按钮，取值及含义
相关知识：消息框 (8.3)
表8-4 Atype参数的取值（消息框类型） 取值 mtWarning mtError mtInformation mtConfirmatio n mtCustom 说明 显示一个带有蓝色惊叹号的消息框 显示一个带有红色停止符号的消息框 显示一个带有蓝色“i”标志的消息框 显示一个带有绿色问号的消息框 消息框中没有位图，对话框的标题是应用程 序执行文件名
mrIgnore
mrAll mrNoToAll mrYesToAll
相关知识：消息框 (8.3)
2. MessageDlg函数
– 例如：
– MessageDlg('记事本中还有文本内容未保存，是 否保存？',mtWarning,[mbyes,mbno],0);
实验设计和步骤
13. 补充：判断如果文本框中原来有内容，当“新建”时，需要 提示用户是否要保存。 – – 修改菜单“新建”功能代码 方法：单击“新建”菜单项，在该菜单的单击事件相应过 程中，编写代码：
实验设计和步骤
6. TMainMenu组件
主菜单组件用来设计用户的主菜单，将一个TMainMenu组件添 加到窗体双击该组件后，在此可进行菜单设计。
实验设计和步骤
双击该组件后，在 这里输入各菜单项
实验设计和步骤
各菜单项如下：
菜单分组，主要是使用分隔条，可以通过设置 Caption属性为“-” （减号）来实现菜单的分隔条。
记事本程序界面设计
OpenDialog打开文件对话框 组件（在dialogs面板上） FontDialog字体设置 对话框组件（在 dialogs面板上）
MainMenu主菜单 组件（在standard 面板上）
PopupMenu弹出菜单 组件（在standard 面板上）
SaveDialog保存文件对话 框组件（在dialogs面板上）
记事本程序的设计与实现
实验设计和步骤
1. 2. 运行Delphi7，利用File菜单下的“New－ Application”新建一个工程； 在D盘下新建一个文件夹（以自己名字命名），把
工程文件 以“NotePad.dpr”为文件名保存到该文件
夹中； 3. 4. 把单元文件以“NotePadSource.pas”为文件名也保 存到该文件夹中； 在窗体上，设计出如下图所示的程序界面；
设置Filter属性为：文本文件 (*.txt)|*.txt
相关知识：对话框组件
10. TFontDialog字体设置对话框
主要属性 Font属性：保存了用户在对话框中设置的字体设置信息。

Execute方法：打开字体设置对话框，如果用户选择“确定”按钮
则返回true，否则返回false;
实验设计和步骤
4. 菜单“剪切”功能代码 方法：单击“剪切”菜单项，在该菜单的单击事件相应过程中，编写代码：
实验设计和步骤
5. 菜单“删除”功能代码 方法：单击“删除”菜单项，在该菜单的单击事件相应过程中，编写代 码：
6. 菜单“全选”功能代码 方法：单击“全选”菜单项，在该菜单的单击事件相应过程中，编写代码：
Memo文本框组 件（在standard 面板上）
实验设计和步骤
5. TMemo文本框组件位于组件面板的Standard选项卡上可以显 示、编辑多行文本。
设置组件的属性： Align:alClient //让组件充满整个客户区
相关知识：TMemo文本框组件
主要属性和方法
1. Lines属性：保存用户在文本框中输入的文本。
相关知识：消息框 (8.3)
2. MessageDlg函数
弹出带多个图标和按钮的消息框。
– 函数的语法如下：
MessageDlg(const Msg:string;Atype:TmsgDlgType;
Abuttons:TmsaDlgButton;HelpCtx:Longint):Word;

Msg参数指定了消息框显示的内容，
相关知识：消息框 (8.3)
1. ShowMessage过程
调用ShowMessage过程可以显示一个带有OK按钮
的简单消息框。
例如： ShowMessage („欢迎使用本系统！’);
其语法如下：
procedure ShowMessage(const Msg:String);
Msg参数指定在消息框中显示的消息字符串，对 话框的标题即为应用程序的执行文件名。
相关知识：消息框 (8.3)
函数返回值与用户所选的按钮有关。表8-6 各按钮的返回值
TMsgDlgBtn值 mbOK mbCancel mbYes mbNo mbAbort mbRetry 返回值 mrOk mrCancel mrYes mrNo mrAbort mrRetry
mbIgnore
mbAll mbNoToAll mbYesToAll