Delphi软件开发基础第6章.pptVIP

6.1 “打开”对话框组件 6.2 “保存”对话框组件 6.3 “字体”对话框组件 6.4 “颜色”对话框组件 6.5 “打印”对话框组件 6.6 “打印设置”和 “页面设置”对话框 6.7 “查找”对话框组件 6.8 “替换”对话框组件 6.9 标准对话框 几乎所有的Windows应用程序都借助于对话框和用户进行交流，对话框本质是一种窗口，不但可以接受消息，还能移动和关闭。 Delphi应用程序可使用三种对话框。 ·由Delphi 自动提供的对话框组件。 如打开文件对话框、文件保存对话框、字体对话框、颜色对话框、查找对话框和替换对话框等。 ·Delphi 预定义的标准对话框，包括消息框和输入框。 可用函数和过程调用的形式来显示这些对话框。 ·用户自己设计的对话框。 Delphi 的公共对话框组件都是从抽象的TCommonDialog继承下来的，而TCommonDialog又是从TComponent继承下来的。 因此，这些对话框组件都是非可视的。 在设计期，把这些公共对话框组件加到Form上后，看到的是这些对话框组件的图标。 只有调用这些对话框的Execute( )方法，才能在运行期看到真正的对话框。 6.1 “打开”对话框组件 “打开”对话框，是用来打开文件的对话框，是用TOpenDialog组件实现的。 常用属性： DefaultExt属性：用于指定一个默认的扩展名。 FileName属性：指定一个文件名。在打开对话框时，这个文件名出现在对话框的“文件名”框中。 Filter属性：设置文件过滤器，让对话框只列出特定类型的文件。 单击Filter属性右侧的省略号按钮，可打开Filter Editor对话框，从中定义Filter属性。 FilterIndex属性：如果有多个过滤器，这个属性用于指定一个作为默认过滤器。 InitialDir属性：默认情况下，对话框打开时，文件列表中显示的是当前目录的文件。 可以设置这个属性指定另外一个目录。 Title属性：用于设置对话框的标题。 另外TOpenDialog组件有一组Options属性，缺省时它们的取值均为False。 TOpenPictureDialog的直接上级是TOpenDialog，它的特性、方法和事件与TOpenDialog全相同。 它的外观与一般的“打开”对话框很相似，只是增加了一个预览区域。 当用户选择图像文件时，预览区域就显示用户所选择的图像，并且显示该图像的大小。 单击对话框上的[放大镜]按钮，可以放大显示图像。 可以预览的图像格式有BMP、ICO、WMF和EMF，如果是其他格式的图像，预览区域将显示“(None)”。 例： procedure TForm1.Button1Click(Sender: TObject); begin with OpenDialog1 do begin Filter:=文本文件(*.txt)|*.txt; DefaultExt:=txt; FileName:=; Options:=[ofHideReadOnly,ofFileMustExist,ofPathMustExist]; if Execute then if ofExtensionDifferent in Options then MessageDlg(这不是文本文件！,mtError,[mbOK],0) Else Memo1.Lines.LoadFromFile(FileName); end; end; 6.2 “保存”对话框组件 “保存”对话框组件的属性以及界面和“打开”对话框几乎一样。 与[打开]对话框一样，[保存]对话框也有一个带图像预览的“保存”对话框，是用TSavePictureDialog元件实现的。 在保存图像文件时，可以在对话框中预览图像。 TSavsPictureDialog的直接上级是TOpenPictureDialog。 它的特性、方法和事件与TOpenPictureDialog组件完全相同。 它的外观与一般的“另存为”对话框很相似，只是增加了一个预览区域。 图象的用法和格式同TOpenPictureDialog。 例： proce