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(页面设置)

推荐分享