Delphi整理八（对话框）

对话框

对话框函数：

ShowMessage、ShowMessageFmt、MessageDlg、InputBox、InputQuery

对话框组件在Dialog组件面板中：

**OpenDialog、SaveDialog、OpenPictrueDialog、
SavePictrueDialog、FontDialog、ColorDialog、PrintDialog、PrintSetDialog、
FindDialog、RepleaseDialog…**

对话框function or procedure

输出：ShowMessage、ShowMessageFmt、MessageDlg
输入：InputQuery、InputBox
1）ShowMessage语法格式：

ShowMessage(<信息内容>);
例ShowMessage('欢迎使用本系统');

2）ShowMessageFmt（过程显示一个简单的信息）

ShowMessageFmt(<信息内容>，<参数组>);
例，ShowMessageFmt('%s今天%d岁.',['Tom',27]);

3）MessageDlg：（信息对话框，等待用户响应，根据用户响应返回一个值）

<变量>:=MessageDlg(<信息内容>,<类型>,<按钮组合>,HelpCtx);

1）<变量>是Word类型，其值与按下的按钮有关
2）<信息内容>是显示在对话框中的信息
3）<类型>是对话框的类型，即对话框显示的图标（表8-1） 155页

输入对话框

1）InputBox

<变量>:=InputBox(<对话框标题>，<提示内容>，<可输入内容>);
例，xm:=InputBox('输入框','请输入姓名','张三');

2）InputQuery

<变量>:=InputQuery(<对话框标题>,<请输入姓名>,‘asd’);//这个变量是boolean类型的，
//例，
zhangsan:='wojiaozhangsan';
if inputquery('输入','输入姓名',zhangsan)
then //(按ok返回输入框最后显示的内容)
else //(按Cancel，返回初始值（wojiaozhangsan）)

对话框组件

文件类对话框

引入OpenDialog组件

2）执行：组件Name.execute

属性：

1）Title：对话框标题
2）InitialDir：初始显示的文件目录
3）FileName：选中文件的文件名（包含路径）
4）Options：指定对话框的参数（含多个参数）
5）Filter：文件过滤器

opendialog1.Filter:='Word文档|*.doc';

SaveDialog：（显示另存为）

特殊属性：

savedialog1.DefaultExt:='txt';//扩展名为txt

OpenPictrueDialog和SavePictureDialog多了个右边的浏览图片

FontDialog字体对话框组件和ColorDialog颜色对话框

FindDialog查找对话框组件和Replease替换对话框组件

1）FindText：查找的内容
2）Options：设置查找规则

PrintDialog(打印)、PrinterSetupDialog(打印设置)、PageSetupDialog(页面设置)