书城计算机网络Delphi程序设计教程
36209800000021

第21章 对话框的使用与设计(2)

fdScreen:显示器屏幕的字体类型。

fdPrinter:打印机的字体类型。

fdBoth:两种设备的字体类型。

其默认值为fdScreen。

2)Font属性

Font属性指明对话框当前选定的字体。该属性为集合型属性,包含7个子属性,分别决定字符集、颜色、字体、行距、大小和字体的风格等。

3)MaxFontSize和MinFontSize属性

MaxFontSize和MinFontSize属性决定可供选择的最大和最小字体尺寸。这两个属性为整数直接输入型属性,它们的默认值均为0。在组件的Options属性中的fdLimitSize子属性值为True时,这两个子属性才有效。

4)Options属性

Options属性决定对话框的外观和行为。该属性为集合型属性,包含16个布尔型的子属性,其值为True时的含义如表8-4所示。

8.3.6ColorDialog(颜色对话框)组件

ColorDialog组件的图标为。

调用ColorDialog组件的Execute方法,打开的【颜色】对话框如图8-11所示。

单击对话框中的【规定自定义颜色(D)】按钮,可以将【颜色】对话框完全展开,如图8-12所示。

【颜色】对话框用来设置文字或者对象背景的颜色。

ColorDialog组件的属性如下。

1)Color属性

Color属性决定当对话框打开时,对话框默认选定的颜色。该属性为枚举型属性,列出了对话框中所有颜色的文字描述。

2)CustomColor属性

CustomColor属性决定对话框中可供选择的自定义颜色。该属性为编辑型属性,单击属性值栏右端的【…】按钮,弹出【StringListEditor】对话框,如图8-13所示。

在对话框的编辑框中输入表示自定义颜色的字符串,其格式为:

其中X为A~P共16个英文字母,colorA为第一种自定义颜色,colorB为第二种自定义颜色等,共可定义16种颜色;等号右边为三字节16进制数,分别表示红、绿、蓝3种颜色的灰度,每种灰度有256个等级;每种颜色占一行,字符串的末尾没有标点符号。如colorA=754D2B为一种蓝灰色。

3)Options属性

Options属性决定对话框的外观特性。该属性为集合型属性,包含5个布尔型子属性,其值为True时的含义如表8-5所示。

8.3.7FindDialog(查找对话框)组件

FindDialog组件的图标为。

调用FindDialog组件的Execute方法,打开的【查找】对话框,如图8-14所示。

【查找】对话框是Delphi通用对话框中仅有的两个非模式对话框之一,用来在文件中查找指定的字符串。在【查找内容】编辑框中输入要查找的字符串,根据查找需要,选择【全字匹配】、【区分大小写】、【向上】及【向下】等复选框、单选按钮,确定查找条件,然后单击【查找下一个】按钮,对话框按设定的查找要求查找。

1.FindDialog组件的属性

FindDialog组件有如下一些主要属性。

1)FindText属性

FindText属性指定要查找的字符串。该属性为直接输入型属性,其默认值为空。【查找】

对话框打开前输入的该属性值成为对话框【查找内容】编辑框的默认内容。【查找】对话框打开后单击【查找下一个】按钮,【查找内容】编辑框输入的字符串将赋给该属性。

2)Options属性

Options属性决定对话框的外观和行为特性。该属性为集合型属性,包含13个布尔型子属性,其值为True时的含义如表8-6所示。

2.FindDialog组件的方法

FindDialog组件的方法除了Execute之外,还有CloseDialog,该方法关闭打开的对话框。

CloseDialog方法的声明格式为:

procedureCloseDialog;

该方法的使用非常简单,如要关闭FindDialog1组件打开的对话框,只需:

FindDialog1.CloseDialog;

3.FindDialog组件的事件

FindDialog组件常用的事件有OnFind。

OnFind事件:单击对话框中的【查找下一个】按钮,触发该事件。可在该事件的处理代码中实现用户要求的查找功能。

8.3.8ReplaceDialog(替换对话框)组件

ReplaceDialog组件的图标为。

调用FindDialog组件的Execute方法,打开的【替换】对话框,如图8-15所示。

【替换】对话框是Delphi通用对话框中仅有的两个非模式对话框之一,用指定的字符串替换文件中查找到的另一个字符串。在【查找内容】编辑框中输入要查找的字符串,在【替换为】编辑框输入替换的字符串,根据查找需要,选择【全字匹配】、【区分大小写】复选框,确定查找、替换条件,然后单击【查找下一个】、【替换】或【全部替换】按钮,对话框将完成查找、替换。

1.ReplaceDialog组件的属性

ReplaceDialog组件的属性同FindDialog组件的属性基本相同,只有ReplaceText和Options属性的两个子属性是不同的。

1)ReplaceText属性

ReplaceText属性指定要替换的字符串。该属性为直接输入型属性,其默认值为空。【替换】对话框打开前输入的该属性值成为对话框【替换为】编辑框的默认内容。【替换】对话框打开后单击【替换】或【全部替换】按钮,【替换为】编辑框输入的字符串将赋给该属性。

2)Options属性的两个子属性

ReplaceDialog组件的Options属性中大多数子属性的取值及含义和FindDialog组件中相同,只有两个子属性是专门用于ReplaceDialog组件的。

frReplace:当单击了对话框中的【替换】按钮,该属性值为True。

frReplaceAll:当单击了对话框中的【全部替换】按钮,该属性值为True。

用户在事件处理代码中可以据此判断是进行“替换”还是进行“全部替换”的操作。

2.ReplaceDialog组件的事件

ReplaceDialog组件除了具有OnFind事件之外,还有一个OnReplace事件。

OnReplace事件:单击对话框中的【替换】或【全部替换】按钮,触发该事件。可在该事件的处理代码中,根据Options的frReplace和frReplaceAll子属性值,实现用户要求的替换或者全部替换功能。

8.3.9PrintDialog(打印对话框)组件

PrintDialog组件的图标为。

调用PrintDialog组件的Execute方法,打开的【打印】对话框,如图8-16所示。

【打印】对话框用于选择打印机、打印范围和打印份数。

PrintDialog组件的属性如下。

1)Collate属性

Collate属性决定对话框打开时,其中的【自动分页】复选框是否被选中。该属性为布尔型属性,若属性值为True,则被选中。其默认值为False。

2)Copies属性

Copies属性指定对话框打开时默认的打印份数。该属性为直接输入型属性,其默认值为0。

3)FromPage和ToPage属性