《Delphi程序设计及实验指导》电子教案--第8章

《《Delphi程序设计及实验指导》电子教案--第8章》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第八章对话框设计8.1通用对话框组件8.2模式对话框与无模式对话框8.3消息框习题8.1通用对话框组件Delphi7在通用对话框库中提供了标准对话框，用户可以实现打开和保存文件、搜索和替换、选择颜色、字体以及打印等操作，为Windows应用程序设计标准用户界面带来了极大的方便。在编写应用程序时，可以先设计好主菜单。在需要使用标准对话框菜单项的事件处理中，调用标准对话框的Execute等方法，以满足设计需要。8.1通用对话框组件8.1.1文件对话框组件Delphi7中包括了四种通用的文件对话框组件。1．打开文件对话框（TOpenDialog）(1)

2、用途通常情况下，标准的Windows应用程序中的“文件”菜单包含“打开”命令，选择该命令，将弹出打开文件对话框，使用该对话框选择要打开的文件。用户可以通过下拉框选择文件的存放位置、文件类型以及文件列表中要打开的文件。当用户单击了“打开”按钮，对话框将关闭，用户选中的一个或多个文件将被打开。Delphi7提供了打开文件对话框组件TOpenDialog，用来显示一个“打开”对话框，在程序中使用Execute方法来激活OpenDialog对话框。8.1通用对话框组件(2)主要属性①DefaultText属性②FileName属性③Filter属性④In

3、itialDir属性⑤Options属性⑥Title属性8.1通用对话框组件【例8-1】利用主菜单的“文件→打开”命令和OpenDialog组件来显示“打开”对话框。图8-3窗体界面设计8.1通用对话框组件2．保存文件对话框（TSaveDialog）保存文件对话框TSaveDialog组件用来弹出一个“另存为”对话框，让用户选择一个文件并保存。调用该组件的Execute方法可以弹出保存文件对话框，当用户单击“保存”按钮后，对话框将关闭，选中的文件名将被赋给FileName属性。保存文件对话框组件的属性、方法和事件与打开文件对话框组件基本相同。8.

4、1通用对话框组件3．打开图像文件对话框（TOpenPictureDialog）打开图像文件对话框TOpenPictureDialog组件实际上与打开文件对话框组件基本相同，只是用于选择以及打开图像文件，对话框中包含了一个矩形的预览区域，如果可以读取选中的文件，该文件将在预览区域显示。该对话框支持的文件类型包括位图（.bmp）、图标文件（.ico）、Windows图元文件（.wmf）以及增强型Windows图元文件（.emf）。该对话框具有与TOpenDialog相同的属性集，但是默认情况下，Filter属性对应于TOpenPictureDialo

5、ge组件支持的所有文件类型。8.1通用对话框组件4．保存图像文件对话框（TSavePictureDialog）保存图像文件对话框TSavePictureDialog组件用来弹出一个带有图象预览的“另存为”对话框，该对话框的外观以及使用与TOpenPictureDialog对话框基本相同。8.1通用对话框组件8.1.2字体对话框（TFontDialog）组件1．用途使用TFontDialog组件可以显示一个选择字体对话框，当用户选中了一个字体并单击“确定”按钮之后，对话框将关闭并将选中的字体保存在组件的Font属性中。调用Execute方法可以激活

6、该对话框。2．主要属性(1)Device属性(2)Font属性(3)MaxFontSize和MinFontSize属性(4)Options属性8.1通用对话框组件【例8-2】设计一个字体对话框，当用户选中某种字体之后，按钮的字体将改变为选中的字体。8.1通用对话框组件编写代码。响应按钮OnClick事件的代码如下：procedureTform1.Button1Click(Sender:TObject);beginFontDialog1.Execute;end;在窗体的OnApply事件中添加代码如下：procedureTForm1.FontDia

7、log1Apply(Sender:TObject;Wnd:HWND);beginbutton1.Font:=fontdialog1.Font;end;8.1通用对话框组件8.1.3颜色对话框（TColorDialog）组件1．用途颜色对话框TColorDialog组件用来显示标准的Windows颜色对话框，用户可以从中选择一种颜色。调用该组件的Execute方法可以弹出“颜色”对话框，当用户选择了一种颜色并单击“确定”按钮之后，对话框将关闭，并且选中的颜色保存在组件的Color属性中。一个标准的颜色对话框如图8-11所示8.1通用对话框组件图8-

8、11颜色对话框8.1通用对话框组件2．主要属性(1)Color属性(2)CustomColors属性(3)Options属性8.1通用对