“DelphI程序的设计和实验指教”电子教案——第8章节.ppt

第八章 对话框设计 8.1 通用对话框组件 8.2 模式对话框与无模式对话框 8.3 消息框 习 题 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8.1 通用对话框组件 Delphi 7在通用对话框库中提供了标准对话框，用户可以实现打开和保存文件、搜索和替换、选择颜色、字体以及打印等操作，为Windows应用程序设计标准用户界面带来了极大的方便。在编写应用程序时，可以先设计好主菜单。在需要使用标准对话框菜单项的事件处理中，调用标准对话框的Execute等方法，以满足设计需要。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8.1 通用对话框组件 8.1.1 文件对话框组件 Delphi 7中包括了四种通用的文件对话框组件。 1．打开文件对话框（TOpenDialog） (1) 用途 通常情况下，标准的Windows应用程序中的“文件”菜单包含“打开”命令，选择该命令，将弹出打开文件对话框，使用该对话框选择要打开的文件。用户可以通过下拉框选择文件的存放位置、文件类型以及文件列表中要打开的文件。当用户单击了“打开”按钮，对话框将关闭，用户选中的一个或多个文件将被打开。 Delphi 7提供了打开文件对话框组件TOpenDialog，用来显示一个“打开”对话框，在程序中使用Execute方法来激活OpenDialog对话框。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8.1 通用对话框组件 (2) 主要属性 ① DefaultText属性 ② FileName属性 ③ Filter属性 ④ InitialDir属性 ⑤ Options属性 ⑥ Title属性 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8.1 通用对话框组件 【例8-1】利用主菜单的“文件→打开”命令和OpenDialog组件来显示“打开”对话框。 图8-3 窗体界面设计 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile 5.2.0.0. Copyright 2004-2011 Aspose Pty Ltd. 8.1 通用对话框组件 2．保存文件对话框（TSaveDialog） 保存文件对话框TSaveDialog组件用来弹出一个“另存为”对话框，让用户选择一个文件并保存。调用该组件的Execute方法可以弹出保存文件对话框，当用户单击