《记事本程序的设计与实现(实验版).ppt》由会员分享，可在线阅读，更多相关《记事本程序的设计与实现(实验版).ppt（29页珍藏版）》请在装配图网上搜索。
1、记事本程序的设计与实现,实验设计和步骤,运行Delphi7，利用File菜单下的“NewApplication”新建一个工程； 在D盘下新建一个文件夹（以自己名字命名），把工程文件 以“NotePad.dpr”为文件名保存到该文件夹中； 把单元文件以“NotePadSource.pas”为文件名也保存到该文件夹中； 在窗体上，设计出如下图所示的程序界面；,MainMenu主菜单组件（在standard 面板上）,PopupMenu弹出菜单组件（在standard 面板上）,OpenDialog打开文件对话框组件（在dialogs面板上）,FontDialog字体设置对话框组件（在dialogs
2、面板上）,SaveDialog保存文件对话框组件（在dialogs面板上）,Memo文本框组件（在standard 面板上）,记事本程序界面设计,实验设计和步骤,TMemo文本框组件位于组件面板的Standard选项卡上可以显示、编辑多行文本。 设置组件的属性： Align:alClient /让组件充满整个客户区,相关知识：TMemo文本框组件,主要属性和方法 Lines属性：保存用户在文本框中输入的文本。 ScrollBars属性：用来设置文本框是否有滚动条。 Clear方法：清空文本框中的内容。 CopyToClipboard方法：将文本框中选择文本拷贝到剪贴板上。 CutToClipb
3、oard方法：将文本框中选择的文本剪切到剪贴板上。 PasteFromClipboard方法：将剪贴板内容拷贝到文本框中光标所在的位置。 SelectAll方法：选择文本框中的所有文本。 SaveToFile方法：将当前文本框中的文本以指定的文件名保存到磁盘中。 LoadFromFile方法：将磁盘上指定文件装载到文本框中并显示。 Wordwrap:设置文本是否可以自动换行。,实验设计和步骤,TMainMenu组件 主菜单组件用来设计用户的主菜单，将一个TMainMenu组件添加到窗体双击该组件后，在此可进行菜单设计。,实验设计和步骤,双击该组件后，在这里输入各菜单项,实验设计和步骤,各菜单项
4、如下：,菜单分组，主要是使用分隔条，可以通过设置 Caption属性为“-”（减号）来实现菜单的分隔条。,实验设计和步骤,设置快捷键(在对象观察器(按F11)里设置) 方法：先双击主菜单组件TMainMenu，然后选中要设置的菜单项，按F11调出对象观察器，修改它的ShortCut属性即可。,实验设计和步骤,TPopupMenu组件 弹出菜单组件 用来设计用户的弹出菜单，将一个组件添加到窗体双击该组件后，在此可进行弹出菜单设计。,各菜单项如图：,实验设计和步骤,注意：当设计好一个菜单后，并不代表在程序执行时就可以使用，因为窗体（Form）并不知道还有快捷菜单，为此还要设置窗体的PopupMen
5、u属性，单击PopupMenu属性右边的下三角按钮，选择窗体中所创建的快捷菜单的名字如PopupMenul，这样在程序执行时，当右击窗体后，便会弹出相应的菜单。,相关知识：对话框组件,TOpenDialog打开文件对话框 主要属性 FileName属性 ：保存了用户选中的文件的文件名和路径信息 Filter属性:文件类型过滤器，用来设置哪些类型的文件可以在对话框中显示。 InitialDir属性：指定对话框打开时的默认目录。 Execute方法：打开对话框，如果用户选择“打开”按钮则返回true，否则返回false;,实验设计和步骤,把一个TOpenDialog打开文件对话框组件放到窗体上，并
6、在对象观察器里设置它的属性： Filter属性:文件类型过滤器，用来设置哪些类型的文件可以在对话框中显示。 设置为：文本文件 (*.txt)|*.txt InitialDir属性：指定对话框打开时的默认目录。 设置为：D:,相关知识：对话框组件,TSaveDialog保存文件对话框 主要属性 FileName属性 ：用户为要保存的文件指定文件名和路径信息 Filter属性:文件类型过滤器，把文件保存为哪些类型的文件InitialDir属性：指定对话框打开时的默认目录。 Execute方法：打开对话框，如果用户选择“保存”按钮则返回true，否则返回false;,设置Filter属性为：文本文件
7、 (*.txt)|*.txt,相关知识：对话框组件,TFontDialog字体设置对话框 主要属性 Font属性：保存了用户在对话框中设置的字体设置信息。 Execute方法：打开字体设置对话框，如果用户选择“确定”按钮则返回true，否则返回false;,实验设计和步骤,菜单“新建”功能代码 方法：单击“新建”菜单项，在该菜单的单击事件相应过程中，编写代码： 菜单“复制”功能代码 方法：单击“复制”菜单项，在该菜单的单击事件相应过程中，编写代码：,实验设计和步骤,菜单“粘贴”功能代码 方法：单击“粘贴”菜单项，在该菜单的单击事件相应过程中，编写代码： 菜单“剪切”功能代码 方法：单击“剪切”
8、菜单项，在该菜单的单击事件相应过程中，编写代码：,实验设计和步骤,菜单“删除”功能代码 方法：单击“删除”菜单项，在该菜单的单击事件相应过程中，编写代码： 菜单“全选”功能代码 方法：单击“全选”菜单项，在该菜单的单击事件相应过程中，编写代码：,实验设计和步骤,菜单“打开”功能代码 方法：单击“打开”菜单项，在该菜单的单击事件相应过程中，编写代码： 菜单“保存”功能代码 方法：单击“保存”菜单项，在该菜单的单击事件相应过程中，编写代码：,实验设计和步骤,菜单“自动换行”功能代码 方法：单击“自动换行”菜单项，在该菜单的单击事件相应过程中，编写代码：,实验设计和步骤,菜单“字体设置”功能代码 方
9、法：单击“字体设置”菜单项，在该菜单的单击事件相应过程中，编写代码： 快捷菜单“复制”功能代码(其它右键快捷菜单的用法相同) 方法：单击快捷菜单“复制”菜单项，在该菜单的单击事件相应过程中，编写代码：,实验设计和步骤,补充：判断如果文本框中原来有内容，当“新建”时，需要提示用户是否要保存。,相关知识：消息框 (8.3),ShowMessage过程 调用ShowMessage过程可以显示一个带有OK按钮的简单消息框。 例如： ShowMessage (欢迎使用本系统！); 其语法如下： procedure ShowMessage(const Msg:String); Msg参数指定在消息框中显示
10、的消息字符串，对话框的标题即为应用程序的执行文件名。,相关知识：消息框 (8.3),MessageDlg函数 弹出带多个图标和按钮的消息框。 函数的语法如下： MessageDlg(const Msg:string;Atype:TmsgDlgType; Abuttons:TmsaDlgButton;HelpCtx:Longint):Word;,Msg参数指定了消息框显示的内容， Atype参数指定消息框的类型，它的取值及含义见表8-4。 Abuttons参数指定消息框包含哪些按钮，取值及含义见表8-5。 HelpCtx参数指定了帮助主题的帮助上下文的ID。,相关知识：消息框 (8.3),表8-4 Atype参数的取值（消息框类型）,相关知识：消息框 (8.3),表8-5 Abuttom参数的取值（消息框按钮类型）,相关知识：消息框 (8.3),函数返回值与用户所选的按钮有关。表8-6 各按钮的返回值,相关知识：消息框 (8.3),MessageDlg函数 例如： MessageDlg(记事本中还有文本内容未保存，是否保存？,mtWarning,mbyes,mbno,0);,实验设计和步骤,补充：判断如果文本框中原来有内容，当“新建”时，需要提示用户是否要保存。 修改菜单“新建”功能代码 方法：单击“新建”菜单项，在该菜单的单击事件相应过程中，编写代码：,
记事本程序的设计与实现(实验版).ppt
