登陆注册
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属性

同类推荐
  • EDA技术

    EDA技术

    根据课堂教学和实验操作的要求,以提高实际工程设计能力为目的,深入浅出地对EDA技术相关知识作了系统和完整的介绍,相关知识作了系统和完整的介绍。
  • 悟道:一位IT高管20年的职场心经

    悟道:一位IT高管20年的职场心经

    本书是一位有20多年职场经验的IT企业高管撰写的一系列有关职场悟道的短文集成,讲述的是在企业里如何修炼自己,如何摆平自己的心态,怎样做到“世事洞明”和“人情练达”,如何“搞定老板”,怎样做到工作和生活平衡等诸多话题,涉及到跳槽、转行、升迁、环境、沟通、老板、下属、老外等等。每一篇都以作者的亲身经历或者身边的故事说明道理,语言简洁流畅,妙趣横生,更有不少经典片段和发人深省的职场警句,读起来就像是一个睿智幽默的老朋友坐在你面前娓娓道来。
  • 创业在微软

    创业在微软

    身处软件巨擘微软之中,何来“创业”二字?本书详尽勾勒了微软亚洲工程院(ATC)的成长历程,披露了工程院人在“创业”过程中不为人知的种种酸甜苦辣,生动展现了工程院的独特文化,并从另一个角度展现了其领袖人物张宏江博士的心路历程和管理思想。
  • 办公设备使用与维护

    办公设备使用与维护

    信息技术的发展正前所未有地改变着人类生活的每一个层面,以信息化、全球化和高科技为特征的新经济浪潮滚滚而来,机遇与挑战并存。办公自动化是信息化时代最重要的标志之一,办公要实现自动化,当然离不开办公设备。
  • 中文版AutoCAD2005辅助设计宝典

    中文版AutoCAD2005辅助设计宝典

    本书全面、详细地介绍了中文版AutoCAD2005的特点、功能以及使用方法和技巧。全书共分11章,前九章分别介绍了利用中文版AutoCAD2005进行辅助设计的方法和技巧,最后两章讲解了若干综合实例。
热门推荐
  • 凤鸣绕九霄

    凤鸣绕九霄

    堂堂一代青丘女帝居然给她人做嫁衣被贱女虐?本帝不过是下凡历了一场劫,不是什么阿猫阿狗都能骑到本帝头上来的什么?你说你是凤族族长,帝后侄女天生高贵?受尽四海朝拜的青丘女帝够不够分量呢?第一世被你逼得跳下诛仙台,前世生而为人受你欺凌,被你生生剥皮,今朝历劫归来,本帝便以牙还牙如法炮制将你凤凰毛扒光,丢进鸡窝里,受尽屈辱,俗话说得好“拔了毛的凤凰不如鸡”,看你还如何高贵得起来而前世因失去龙鳞甲而失去记忆的天界太子封翊却说“她欠你的,随便拔便是”既然你前世凡间帝王的夫君天界的太子开口了,本帝自然也就不客气了从不谙世事的少女到成为一代女帝的历程……
  • 养成系之现代全能魔法师

    养成系之现代全能魔法师

    ”手放开"”不放,我就要拉着你的手"姜瑞安笑嘻嘻的说着说完,舒予反手一挥,水哗啦啦的对着姜瑞安淋过去在不知不觉中,自己养着的小孩也长大了,也没有想到在经历过众多事情后陪伴余生的也是他……
  • 天行

    天行

    号称“北辰骑神”的天才玩家以自创的“牧马冲锋流”战术击败了国服第一弓手北冥雪,被誉为天纵战榜第一骑士的他,却受到小人排挤,最终离开了效力已久的银狐俱乐部。是沉沦,还是再次崛起?恰逢其时,月恒集团第四款游戏“天行”正式上线,虚拟世界再起风云!
  • 穿越遇见爱

    穿越遇见爱

    三位女主角一不小心穿越了,发生了一段又一段的爱情奇遇,左面是爱,右面是恨,女主到底该如何选择。
  • 少帅吃醋了啊

    少帅吃醋了啊

    一个意外身亡的女法医,穿越到民国。一个野心勃勃,霸道无比的军界少帅!一段段段惊动正阳城的惨案,两夫妻双剑合璧,天下无敌…
  • 冰与火的洗礼—中国民营企业家的心路历程

    冰与火的洗礼—中国民营企业家的心路历程

    在三十年改革开放的历史中,民营企业家是一个特殊而又重要的群体。在三十年的时间中,民营经济的发展几度风雨,顽强成长,民营企业家的形象和地位也几度浮沉,经历了复杂的发展和变化。为了展现中国民营企业家的风采,了解他们的所思、所感,分享他们的体会和心得,同时分担他们的忧虑和困惑,思考他们的得与失,北京大学民营经济研究院特编写了这本《冰与火的洗礼——中国民营企业家的心路历程》。
  • 灵生之时

    灵生之时

    灵生之时的钟声响起,世界的格局顷刻之间破灭!往日的和平与繁荣终究不再,生死存于一瞬的时代已然到来!
  • 荒野寻食记

    荒野寻食记

    荒野中,一位魂尊御空而过,看到林烨正在一边解剖星兽尸体,一边对着直播镜头解说着星兽的构造和弱点,不由的停下来,拍了拍林烨的肩膀赞许道:“不错,不错,难得还有年轻人能这么脚踏实际的讲解星兽的弱点,小伙子我看好你哦!”然后御空飞起。林烨一脸懵逼:“我只是想告诉他们这星兽啥部位能吃而已。”刚刚飞起的魂尊一个趔趄差点摔下来,然后一脸尴尬加速离开。
  • 似景弄尘

    似景弄尘

    高傲的傅家七小姐被废去修为可谓是大快人心,但新的傅家七小姐又怎么在这异界中展开它的异界奇行呢?一日至少一更!
  • 乱世兽灵

    乱世兽灵

    谁能想到,张辰栾会因一只猫穿越。还能听懂兽语??