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(页面设置)
Delphi整理八（对话框）

相关推荐

评论
