Delphi整理八(对话框)
来源:互联网 发布:linux如何查看raid 编辑:程序博客网 时间:2024/05/29 07:47
对话框
对话框函数:
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整理八(对话框)
- (孙鑫 八) 对话框
- (八)对话框
- C#笔记整理(八)
- Java整理(八)注解
- Delphi笔记整理(二)
- Delphi整理一(基础知识)
- Delphi数据库编程教程(八)
- Delphi控件开发浅入深出(八)
- Delphi XE5 for Android (八)
- delphi 选择目录对话框(SelectDirectory 函数)
- 流媒体传输知识整理(八)
- 笔记整理(java基础八-----多线程)
- JAVA学习笔记整理八(多线程)
- JAVA基础知识整理(八) ---操作系统
- Android入门学习笔记整理(八)
- 八、Qt对话框设计
- Delphi的笔记整理(一)
- Linux 关闭tomcat
- Revit二次开发——让窗口一直显示在Revit前面
- C#中的ArrayList集合详解与深度探讨
- centos7 安装后相关配置
- A Comprehensive guide to Fine-tuning Deep Learning Models in Keras
- Delphi整理八(对话框)
- c# enum 枚举一般用法
- js 去掉alert在手机浏览器显示网址的网址信息
- 免费领取地图下载流量与流量使用方法
- 第1章 Python机器学习的生态系统
- 6-2 多态性与虚函数
- 每天一个linux命令(21):find命令之xargs
- Ubuntu16.04安装Shark-3.0.0
- ElasticSearch-安装以及常见错误