记事本程序的设计与实现实验版PPT课件

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