1.4.3 使用公用对话框部件

 

Delphi为您在Dialogs页上提供了几个标准对话框，它们是文件打开OpenDialog；文件

保存SaveDialog；字体Fontdialog；颜色ColorDialog；打印PrintDialog；打印设置

PrintsetupDialog;查找FindDialog；替换ReplaceDialog等部件。

 

1.4.3.1 调用标准对话框

 

您可以发现，除了Font,Find,Replace对话框之外，其余标准对话框的Events页都是空

白的。因为它们本身是不可视的对话框形式，所以不能响应标准的鼠标键盘操作，只

能在程序中调用它们。在本章第一节的Demo程序中，我们已经对用Color对话框有了了

解，在程序的适当位置加入对话框所属的Execute方法，可以执行标准对话框。

 

在编制应用程序时，您可以先设计好主菜单。在需要使用标准对话框的菜单项的事件

处理过程中，调用标准对话框的Execute等方法，以满足设计需求，即响应菜单命令弹

出标准对话框。

 

1.4.3.2 OpenDialog和SaveDialog部件

 

OpenDialog(文件的打开)和SaveDialog(保存对话框)部件处理文件的打开与存储，它

们拥有完全相同的属性域。DefaultExt属性表示缺省扩展名。当用户没有输入文件的

后缀时，可以为用户文件自动加扩展名。FileName属性指定出现在FileName正文框中

的缺省文件名。Filter属性提供了文件过滤器。FileEditStyle决定在输入文件名时用

Edit还是Combo- Box；设置为fsComboBox时，允许使用历史列表HistoryList属性，这

在应用程序需要经常选择文件时，可以节约大量的时间。HistoryList属性保存有在

File Name下拉式编辑框中显示的文件名，使用[TStrings]的省略按钮可以编辑历史列

表。您也可以编程实现将HistoryList属性设为以前用OpenDialog打开的文件名历史列

表。下列程序段可以实现自动历史文件名加载：

 

if OpenDialog1.Execute then

 

OpenDialog1.HistoryList.Insert(0,OpenDialog1.FileName);

 

1.4.3.3 ColorDialog和FontDialog

 

颜色对话框ColorDialog我们在前文的例程中已经用过，其更详细的功能如Options的

设定请查阅在线帮助。

 

字体对话框Font可以帮助用户获取各种方式的字体。使用OnApply事件，可以使得Font

对话框中包含一个Apply按钮，按动它，对话框中设定的字体会立即应用到指定的对象

中，而对话框仍然是打开的，这样更便于观察修改的结果。

 

以下的例程在窗体中先放置一个按钮Button1，调用字体对话框来改变按钮上的

Caption属性显示的字体：

 

Procedure TForm1.Button1Click(Sender:TObject);

 

begin

 

FontDialog1.Execute; 

 

end;

 

Procedure TForm1.FontDlgApply(Sender:Tobject);

 

begin

 

Button1.Font:= FontDialog1.Font;

 

end;

 

1.4.3.4 PrintDialog和PrintSetupDiaog

 

打印对话框PrintDialog和打印设置对话框PrintSetupDialog可以显示标准打印、打印

设置对话框，支持打印文件和打印设置功能，设置它的Options属性可以规定对话框的

表现形式。

 

1.4.3.5 FindDialog和ReplaceDialog

 

FindDialog和ReplaceDialog提供了查找、替换两个对话框部件，对于寻找和替换文本

是极其有用的。在FindDialog和ReplaceDialog中都有OnFind事件，当用户单击寻找对

话框中的Find Next按钮时将触发这一事件。FindText属性中保存了用户在Find What

编辑框中输入的文本。在ReplaceDialog中还有OnReplace事件，当用户单击替换对话

框中的Replace和Replace All按钮时，将触发OnReplace事件。FindText和

ReplaceText属性分别保存了用户在Find What和Replace With编辑框中输入的文本。

我发现我才是那个睡在梦中的人[em7]