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 ip编辑控件

Delphi idwhois1 简单的用法

Delphi 简单的登录窗口

Delphi 判断网络是否连通

Delphi idhttp实现get方法下载文件,断点续传

Delphi xe5 中tmemo控件的应用――for android

Delphi 删除文件函数支持撤销删除

Delphi edit控制字居中,居左,居右

Delphi 将dbgrid的数据导出到excel文件保存

Delphi string内存结构

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...