《delphi程序设计及实验指导》电子教案-第8章节.pptVIP

第八章 对话框设计 8.1 通用对话框组件 8.2 模式对话框与无模式对话框 8.3 消息框 习 题 8.1 通用对话框组件 Delphi 7在通用对话框库中提供了标准对话框，用户可以实现打开和保存文件、搜索和替换、选择颜色、字体以及打印等操作，为Windows应用程序设计标准用户界面带来了极大的方便。在编写应用程序时，可以先设计好主菜单。在需要使用标准对话框菜单项的事件处理中，调用标准对话框的Execute等方法，以满足设计需要。 8.1 通用对话框组件 8.1.1 文件对话框组件 Delphi 7中包括了四种通用的文件对话框组件。 1．打开文件对话框（TOpenDialog） (1) 用途 通常情况下，标准的Windows应用程序中的“文件”菜单包含“打开”命令，选择该命令，将弹出打开文件对话框，使用该对话框选择要打开的文件。用户可以通过下拉框选择文件的存放位置、文件类型以及文件列表中要打开的文件。当用户单击了“打开”按钮，对话框将关闭，用户选中的一个或多个文件将被打开。 Delphi 7提供了打开文件对话框组件TOpenDialog，用来显示一个“打开”对话框，在程序中使用Execute方法来激活OpenDialog对话框。 8.1 通用对话框组件 (2) 主要属性 ① DefaultText属性 ② FileName属性 ③ Filter属性 ④ InitialDir属性 ⑤ Options属性 ⑥ Title属性 8.1 通用对话框组件 【例8-1】利用主菜单的“文件→打开”命令和OpenDialog组件来显示“打开”对话框。 8.1 通用对话框组件 2．保存文件对话框（TSaveDialog） 保存文件对话框TSaveDialog组件用来弹出一个“另存为”对话框，让用户选择一个文件并保存。调用该组件的Execute方法可以弹出保存文件对话框，当用户单击“保存”按钮后，对话框将关闭，选中的文件名将被赋给FileName属性。 保存文件对话框组件的属性、方法和事件与打开文件对话框组件基本相同。 8.1 通用对话框组件 3．打开图像文件对话框（TOpenPictureDialog） 打开图像文件对话框TOpenPictureDialog组件实际上与打开文件对话框组件基本相同，只是用于选择以及打开图像文件，对话框中包含了一个矩形的预览区域，如果可以读取选中的文件，该文件将在预览区域显示。该对话框支持的文件类型包括位图（.bmp）、图标文件（.ico）、Windows图元文件（.wmf）以及增强型Windows图元文件（.emf）。 该对话框具有与TOpenDialog相同的属性集，但是默认情况下，Filter属性对应于TOpenPictureDialoge组件支持的所有文件类型。 8.1 通用对话框组件 4．保存图像文件对话框（TSavePictureDialog） 保存图像文件对话框TSavePictureDialog组件用来弹出一个带有图象预览的“另存为”对话框，该对话框的外观以及使用与TOpenPictureDialog对话框基本相同。 8.1 通用对话框组件 8.1.2 字体对话框（TFontDialog）组件 1．用途 使用TFontDialog组件可以显示一个选择字体对话框，当用户选中了一个字体并单击“确定”按钮之后，对话框将关闭并将选中的字体保存在组件的Font属性中。调用Execute方法可以激活该对话框。 2．主要属性 (1) Device属性 (2) Font属性 (3) MaxFontSize和MinFontSize属性 (4) Options属性 8.1 通用对话框组件 【例8-2】设计一个字体对话框，当用户选中某种字体之后，按钮的字体将改变为选中的字体。 8.1 通用对话框组件 编写代码。 响应按钮OnClick事件的代码如下： procedure Tform1.Button1Click(Sender:TObject); begin FontDialog1.Execute; end; 在窗体的OnApply事件中添加代码如下： procedure TForm1.FontDialog1Apply(Sender: TObject; Wnd: HWND); begin button1.Font:=fontdialog1.Font; end; 8.1 通用对话框组件 8.1.3 颜色对话框（TColorDialog）组件 1．用途 颜色对话框TColorDialog组件用来显示标准的Windows颜色对话框，用户可以从中选择一种颜色。调用该组件的Execute方法可以弹出“颜色”对话框，当用户选择了一种颜色并单击“确定”按钮之后，