第5章 对话框、工具栏和状态栏设计
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
用于在屏幕中央显示消息框。各参数含义如下所述。 (1) Msg参数：指定消息框显示的内容。 (2) Dlgtype参数：指定消息框的类型，其取值见表5-1。 表5-1 Dlgtype参数取值
取 mtWarning mtError mtInformation mtConfirmation mtCustom 值 说 显示一个带有黄色惊叹号的消息框 显示一个带有红色停止符号的消息框 显示一个带有蓝色“i”标志的消息框 显示一个带有绿色问号的消息框 消息框中没有位图，对话框的标题是应用程序执行文件名 明
图5.10 确认消息框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
2) MessageDlgPos函数 该函数的格式如下： function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word; 该函数与MessageDlg函数作用相同，区别是可以用X和 Y参数确定消息框的位置。 3) ShowMessage过程 该函数的格式如下： procedure ShowMessage(const Msg: string); 用于显示一个带有【OK】按钮的消息框，其中Msg参数 指定了消息框显示的内容。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
打开图像文件对话框所支持的文件类型包括位图文件 (.bmp)、图标文件(.ico)、Windows图元文件(.wmf)以及增强 型Windows图元文件(.emf)。 4. 保存图像文件对话框组件 使用该对话框可以保存一个图像文件。其外观及使用与 打开图像文件对话框基本相同。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
(4) HelpCtx参数：指定帮助主题的帮助上下文 的ID，即使用哪个帮助屏幕。 MessageDlg函数的返回值与用户所选的按钮 有关，见表5-3。 例如，用户在程序中使用下面的代码就可以方 便地显示一个消息框，如图5.10所示。 5.10
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
wk.baidu.com
2. 替换对话框组件 【替换】对话框用于查找一个特定的字符串并将该字符 串替换为另外一个字符串，如图5.9所示。 图5.9 【替换】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
替换对话框组件的ReplaceText属性与FindText属性相 对应，FindText属性为要查找的字符串，ReplaceText属性 是将FindText属性指定的字符串替换为该属性所指定的字符 串。 当用户单击【替换】对话框中的【查找下一个】按钮时， OnFind事件被触发；当单击【替换】按钮或【全部替换】按 钮时，OnPlace事件被触发。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.4 打印、打印设置和页面设置对话框组件
【打印】对话框是用TPrintDialog组件实现的。用于设置 打印机的属性、打印范围、打印份数等，如图5.5所示。它的 主要属性有以下几个。 1) Collate 若该属性为True，表示对话框中的【自动分页】复选框 处于选中状态。 2) Copies 该属性用于设定打印的份数。 3) FromPage和ToPage 分别用于设置打印的起始页码和结束页码。 4) PrintToFile 若该属性为True，表示对话框中的【打印到文件】复选 框被选中。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.2 字体对话框组件
使用该组件可以显示一个选择字体对话框，用来设置文 字的颜色、大小、字体样式等属性，如图5.3所示。 图5.3 【字体】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
【字体】对话框组件的主要属性如下。 1) Device 该属性用于设置从何处检索可用的字体。其值可以为 fdScreen、fdPrinter或fdBoth。fdScreen表示从屏幕得到可 用的字体，fdPrinter表示从打印机得到可用的字体，fdBoth 表示既可以从屏幕也可以从打印机得到可用的字体。 2) Font 该属性保存用户在【字体】对话框中选择之后的返回值。 3) MinFontSize和MaxFontSize 这两个属性用来设置所允许的最小和最大字体尺寸，0 表示没有限制。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.6 消息框和输入框
消息框和输入框是Delphi预定义的又一系列对话框，用 于显示各种信息以及接收简单的用户输入。这些对话框无需 使用对话框组件，简单地调用函数或过程就能实现。 1. 消息框 当应用程序想从用户那里得到一个简单的应答时，使用 消息框是很合适的，并且也很容易。Delphi使用以下的函数 和过程显示消息框。 1) MessageDlg函数 该函数的定义格式如下： function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
打印设置对话框组件(TPrintSetupDialog)用于显示一个 【打印设置】对话框，如图5.6所示。 【页面设置】对话框组件(TPageSetupDialog)用于显示 一个【页面设置】对话框，如图5.7所示。 图5.5 【打印】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
如：ColorC=FFFFFFFF 表示黑色。 【颜色】对话框中共有16 个自定义颜色框(ColorA到 ColorP)用来存放自定义颜色。 3) Options 该属性用来设置对话框的 外观和行为，具体可参考联机 帮助。
图5.4 【颜色】对话框
第5章 对话框、工具栏和状态栏设计
第5章 对话框、工具栏和状态栏设计
5.1 对话框设计 5.2 工具栏设计 5.3 状态栏设计 5.4 实验
第5章 对话框、工具栏和状态栏设计
5.1 对话框设计
5.1.1 文件对话框组件
Delphi中包括4种通用的文件对话框组件，它们分别是打开文件对 话框组件、保存文件对话框组件、打开图像文件对话框组件和保存图像 文件对话框组件。 1. 打开文件对话框组件 使用该组件可以显示一个用于选择并打开文件的对话框，如图5.1 所示。 打开文件对话框组件的主要属性有以下一些。 1) DefaultExt 该属性用来设置所要打开文件的默认扩展名。除非选中的文件名已 包含了一个注册了的扩展名，否则该属性所指定的文件扩展名将自动成 为选中文件的扩展名。 delphi程序设计基础教程
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
图5.6 【打印设置】对话框图
5.7 【页面设置】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.5 查找和替换对话框组件
查找和替换是很多文本编辑器都具有的功能，这些功能 通过【查找】和【替换】对话框来完成。Delphi提供了查找 和替换对话框组件，使用它们将显示查找和替换对 话框。 1. 查找对话框组件 【查找】对话框用于查找文本中的某个特定字符串，如 图5.8所示。 查找对话框组件的FindText属性用于指定要查找的字符 串。当用户单击【查找】对话框中的【查找下一个】按钮时， 对话框的【查找内容】文本框中的字符串就会被赋给该属性。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
图5.8 【查找】对话框
需要提醒的是，【查找】对话框是一个无模式对话框， 它并不直接执行查找操作，【替换】对话框也同样。这些功 能都需要编写相应事件代码来实现。 当用户单击【查找】对话框中的【查找下一个】按钮 时，才开始对指定字符串进行查找。这是通过调用查找对话 框组件的OnFind事件的响应过程实现的。
第5章 对话框、工具栏和状态栏设计
图5.1 【打开】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
3) Files 该属性包含了所有被选中的文件列表，其中的文件名都 包含全部路径。 4) Filter 指定文件过滤器，该属性被设置后，那些不需要的文件 类型将被过滤掉。 在对象浏览器中单击该属性右侧的省略号按钮，将弹出 【Filter Editor】对话框，从中定义Filter属性，如图5.2所示。 一次设置多个过滤条件时，要用分号隔开，如：Filter Name 为“Picture Files”，其Filter中有两个过滤条件，为“*.bmp； *.jpg”。
MessageDlg('确认删除吗？',mtConfirmation,[mbYes,mbNo],0);
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
表5-3 各按钮对应的返回值
TM sgDlgButtons 值 mbOK mbCancel mbYes mbNo mbAbort M essageDlg 函数的返回值 mrOk mrCancel mrYes M rNo mrAbort TM sgDlgButtons 值 mbRetry mbIgnore mbAll mbNoToAll mbYesToAll M essageDlg 函数的返回值 mrRetry mrIgnore mrAll mrNoToAll mrYesToAll
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
(3) Buttons参数：指定消息框包含的按钮，其 取值见表5-2。 表5-2 Buttons参数取值
取 mbYes mbNo mbOK mbCancel mbAbort mbRetry 值 说 明 取 值 说 明 一个上显示“Yes”的按钮 一个上显示“No”的按钮 一个上显示“OK”的按钮 一个上显示“Cancel”的按钮 一个上显示“Abort”的按钮 一个上显示“Retry”的按钮 mbIgnore mbAll mbNoToAll mbYesToAll mbHelp 一个上显示“Ignore”的按钮 一个上显示“All”的按钮 一个上显示“NoToAll”的按钮 一个上显示“YesToAll”的按钮 一个上显示“Help”的按钮
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
2. 保存文件对话框组件 使用保存文件对话框组件可以弹出一个对话框，让用户 选择一个文件并保存。该组件的属性、方法、事件和打开文 件对话框几乎完全相同。 3. 打开图像文件对话框组件 该对话框组件用来选择并打开图像文件。它与打开文件 对话框非常相似，不同的是它包含了一个图像预览区域。当 用户选择某个图像文件时，如果文件类型是对话框所支持的 文件类型，那么就会在预览区域内显示该文件的预览图。单 击对话框右上角的放大镜按钮将弹出一个窗口完整显示该图 片。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
图5.2 【Filter Editor】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5) FilterIndex 如果设置了多个过滤器，该属性用于指定一个作为默认 过滤器。这个值为1时，文件类型旁边的下拉列表中出现的 是第一个文件类型；为2时，就是第二个文件类型，以此类 推。当这个值超过过滤器个数时，默认值就是第一个文件类 型。 6) InitialDir 该属性用于设置对话框打开时的默认目录。如果不设置， 那么就以当前工作的目录为默认目录。 7) Options 该属性用于设置对话框的外观及行为。它有许多子属性， 当子属性取值为True时，该子属性对应的功能生效。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.3 颜色对话框组件
颜色对话框组件可以显示一个选择颜色的对话框，用于 设置选定对象的前景或背景色，如图5.4所示。 颜色对话框组件的主要属性有以下一些。 1) Color 该属性既可以在【颜色】对话框弹出时初始化对话框中 的颜色，也可以保存用户在颜色对话框中进行选择之后的返 回值。 2) CustomColors 该属性用于初始或者保存用户的自定义颜色。每个自定 义颜色用如下格式的字符串表示： ColorC=HexValue
第5章 对话框、工具栏和状态栏设计
用于在屏幕中央显示消息框。各参数含义如下所述。 (1) Msg参数：指定消息框显示的内容。 (2) Dlgtype参数：指定消息框的类型，其取值见表5-1。 表5-1 Dlgtype参数取值
取 mtWarning mtError mtInformation mtConfirmation mtCustom 值 说 显示一个带有黄色惊叹号的消息框 显示一个带有红色停止符号的消息框 显示一个带有蓝色“i”标志的消息框 显示一个带有绿色问号的消息框 消息框中没有位图，对话框的标题是应用程序执行文件名 明
图5.10 确认消息框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
2) MessageDlgPos函数 该函数的格式如下： function MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word; 该函数与MessageDlg函数作用相同，区别是可以用X和 Y参数确定消息框的位置。 3) ShowMessage过程 该函数的格式如下： procedure ShowMessage(const Msg: string); 用于显示一个带有【OK】按钮的消息框，其中Msg参数 指定了消息框显示的内容。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
打开图像文件对话框所支持的文件类型包括位图文件 (.bmp)、图标文件(.ico)、Windows图元文件(.wmf)以及增强 型Windows图元文件(.emf)。 4. 保存图像文件对话框组件 使用该对话框可以保存一个图像文件。其外观及使用与 打开图像文件对话框基本相同。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
(4) HelpCtx参数：指定帮助主题的帮助上下文 的ID，即使用哪个帮助屏幕。 MessageDlg函数的返回值与用户所选的按钮 有关，见表5-3。 例如，用户在程序中使用下面的代码就可以方 便地显示一个消息框，如图5.10所示。 5.10
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
wk.baidu.com
2. 替换对话框组件 【替换】对话框用于查找一个特定的字符串并将该字符 串替换为另外一个字符串，如图5.9所示。 图5.9 【替换】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
替换对话框组件的ReplaceText属性与FindText属性相 对应，FindText属性为要查找的字符串，ReplaceText属性 是将FindText属性指定的字符串替换为该属性所指定的字符 串。 当用户单击【替换】对话框中的【查找下一个】按钮时， OnFind事件被触发；当单击【替换】按钮或【全部替换】按 钮时，OnPlace事件被触发。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.4 打印、打印设置和页面设置对话框组件
【打印】对话框是用TPrintDialog组件实现的。用于设置 打印机的属性、打印范围、打印份数等，如图5.5所示。它的 主要属性有以下几个。 1) Collate 若该属性为True，表示对话框中的【自动分页】复选框 处于选中状态。 2) Copies 该属性用于设定打印的份数。 3) FromPage和ToPage 分别用于设置打印的起始页码和结束页码。 4) PrintToFile 若该属性为True，表示对话框中的【打印到文件】复选 框被选中。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.2 字体对话框组件
使用该组件可以显示一个选择字体对话框，用来设置文 字的颜色、大小、字体样式等属性，如图5.3所示。 图5.3 【字体】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
【字体】对话框组件的主要属性如下。 1) Device 该属性用于设置从何处检索可用的字体。其值可以为 fdScreen、fdPrinter或fdBoth。fdScreen表示从屏幕得到可 用的字体，fdPrinter表示从打印机得到可用的字体，fdBoth 表示既可以从屏幕也可以从打印机得到可用的字体。 2) Font 该属性保存用户在【字体】对话框中选择之后的返回值。 3) MinFontSize和MaxFontSize 这两个属性用来设置所允许的最小和最大字体尺寸，0 表示没有限制。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.6 消息框和输入框
消息框和输入框是Delphi预定义的又一系列对话框，用 于显示各种信息以及接收简单的用户输入。这些对话框无需 使用对话框组件，简单地调用函数或过程就能实现。 1. 消息框 当应用程序想从用户那里得到一个简单的应答时，使用 消息框是很合适的，并且也很容易。Delphi使用以下的函数 和过程显示消息框。 1) MessageDlg函数 该函数的定义格式如下： function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
打印设置对话框组件(TPrintSetupDialog)用于显示一个 【打印设置】对话框，如图5.6所示。 【页面设置】对话框组件(TPageSetupDialog)用于显示 一个【页面设置】对话框，如图5.7所示。 图5.5 【打印】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
如：ColorC=FFFFFFFF 表示黑色。 【颜色】对话框中共有16 个自定义颜色框(ColorA到 ColorP)用来存放自定义颜色。 3) Options 该属性用来设置对话框的 外观和行为，具体可参考联机 帮助。
图5.4 【颜色】对话框
第5章 对话框、工具栏和状态栏设计
第5章 对话框、工具栏和状态栏设计
5.1 对话框设计 5.2 工具栏设计 5.3 状态栏设计 5.4 实验
第5章 对话框、工具栏和状态栏设计
5.1 对话框设计
5.1.1 文件对话框组件
Delphi中包括4种通用的文件对话框组件，它们分别是打开文件对 话框组件、保存文件对话框组件、打开图像文件对话框组件和保存图像 文件对话框组件。 1. 打开文件对话框组件 使用该组件可以显示一个用于选择并打开文件的对话框，如图5.1 所示。 打开文件对话框组件的主要属性有以下一些。 1) DefaultExt 该属性用来设置所要打开文件的默认扩展名。除非选中的文件名已 包含了一个注册了的扩展名，否则该属性所指定的文件扩展名将自动成 为选中文件的扩展名。 delphi程序设计基础教程
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
图5.6 【打印设置】对话框图
5.7 【页面设置】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.5 查找和替换对话框组件
查找和替换是很多文本编辑器都具有的功能，这些功能 通过【查找】和【替换】对话框来完成。Delphi提供了查找 和替换对话框组件，使用它们将显示查找和替换对 话框。 1. 查找对话框组件 【查找】对话框用于查找文本中的某个特定字符串，如 图5.8所示。 查找对话框组件的FindText属性用于指定要查找的字符 串。当用户单击【查找】对话框中的【查找下一个】按钮时， 对话框的【查找内容】文本框中的字符串就会被赋给该属性。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
图5.8 【查找】对话框
需要提醒的是，【查找】对话框是一个无模式对话框， 它并不直接执行查找操作，【替换】对话框也同样。这些功 能都需要编写相应事件代码来实现。 当用户单击【查找】对话框中的【查找下一个】按钮 时，才开始对指定字符串进行查找。这是通过调用查找对话 框组件的OnFind事件的响应过程实现的。
第5章 对话框、工具栏和状态栏设计
图5.1 【打开】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
3) Files 该属性包含了所有被选中的文件列表，其中的文件名都 包含全部路径。 4) Filter 指定文件过滤器，该属性被设置后，那些不需要的文件 类型将被过滤掉。 在对象浏览器中单击该属性右侧的省略号按钮，将弹出 【Filter Editor】对话框，从中定义Filter属性，如图5.2所示。 一次设置多个过滤条件时，要用分号隔开，如：Filter Name 为“Picture Files”，其Filter中有两个过滤条件，为“*.bmp； *.jpg”。
MessageDlg('确认删除吗？',mtConfirmation,[mbYes,mbNo],0);
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
表5-3 各按钮对应的返回值
TM sgDlgButtons 值 mbOK mbCancel mbYes mbNo mbAbort M essageDlg 函数的返回值 mrOk mrCancel mrYes M rNo mrAbort TM sgDlgButtons 值 mbRetry mbIgnore mbAll mbNoToAll mbYesToAll M essageDlg 函数的返回值 mrRetry mrIgnore mrAll mrNoToAll mrYesToAll
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
(3) Buttons参数：指定消息框包含的按钮，其 取值见表5-2。 表5-2 Buttons参数取值
取 mbYes mbNo mbOK mbCancel mbAbort mbRetry 值 说 明 取 值 说 明 一个上显示“Yes”的按钮 一个上显示“No”的按钮 一个上显示“OK”的按钮 一个上显示“Cancel”的按钮 一个上显示“Abort”的按钮 一个上显示“Retry”的按钮 mbIgnore mbAll mbNoToAll mbYesToAll mbHelp 一个上显示“Ignore”的按钮 一个上显示“All”的按钮 一个上显示“NoToAll”的按钮 一个上显示“YesToAll”的按钮 一个上显示“Help”的按钮
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
2. 保存文件对话框组件 使用保存文件对话框组件可以弹出一个对话框，让用户 选择一个文件并保存。该组件的属性、方法、事件和打开文 件对话框几乎完全相同。 3. 打开图像文件对话框组件 该对话框组件用来选择并打开图像文件。它与打开文件 对话框非常相似，不同的是它包含了一个图像预览区域。当 用户选择某个图像文件时，如果文件类型是对话框所支持的 文件类型，那么就会在预览区域内显示该文件的预览图。单 击对话框右上角的放大镜按钮将弹出一个窗口完整显示该图 片。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
图5.2 【Filter Editor】对话框
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5) FilterIndex 如果设置了多个过滤器，该属性用于指定一个作为默认 过滤器。这个值为1时，文件类型旁边的下拉列表中出现的 是第一个文件类型；为2时，就是第二个文件类型，以此类 推。当这个值超过过滤器个数时，默认值就是第一个文件类 型。 6) InitialDir 该属性用于设置对话框打开时的默认目录。如果不设置， 那么就以当前工作的目录为默认目录。 7) Options 该属性用于设置对话框的外观及行为。它有许多子属性， 当子属性取值为True时，该子属性对应的功能生效。
delphi程序设计基础教程
第5章 对话框、工具栏和状态栏设计
5.1.3 颜色对话框组件
颜色对话框组件可以显示一个选择颜色的对话框，用于 设置选定对象的前景或背景色，如图5.4所示。 颜色对话框组件的主要属性有以下一些。 1) Color 该属性既可以在【颜色】对话框弹出时初始化对话框中 的颜色，也可以保存用户在颜色对话框中进行选择之后的返 回值。 2) CustomColors 该属性用于初始或者保存用户的自定义颜色。每个自定 义颜色用如下格式的字符串表示： ColorC=HexValue