Delphi XE之路(7)Mobile MessageDlg函数

简介: <div style="margin:0px; padding:0px; font-family:punctuation,微软雅黑,Tohoma; font-size:14px; line-height:22px"> <span style="margin:0px; padding:0px; color:rgb(50,62,50); font-family:simsun">在用XE5创建
在用XE5创建了移动应用后,一般会在工程里添加System.Types, System.UITypes,FMX.Dialogs单元,这里面定义了MessageDlg函数用到的声明、枚举类型定义等。
正常情况下,在windows下使用MessageDlg函数其定义是:
function MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Integer;

具体使用方法是:
if MesageDlg('您要退出应用吗?',mtInformation,[mryes,mrno],0)=mbyes then
   ........

但在mobile(FMX架构)下的应用却不是这样,编译会报错。原来XE5开发移动应用(不知道开发winfors是不是也这样)在引用枚举类型时也要像引用类成员一样,加类标识符
if messagedlg('要退出吗',TMsgDlgType.mtWarning,[TMsgDlgBtn.mbYes,TMsgDlgBtn.mbNo],0)=mryes then
这样在XE5下的编译就能通过了

注:使用这个函数有个缺陷--即如果你在程序中点了手机的返回键(硬件),此时应用程序弹出对话框让你确认操作,但不小心来了电话或切换到其它程序中去了,这时你返回来的时候便会出现死机的情况(有人说这是EMB的一个设计错误,一个BUG),但如果在没有弹出这个对话框的时候进行切换则不会出现死机状况。至今还没有解决之道,希望有机会能解决这个难题。

另外,在应用程序中执行确认操作可以使用TPOPUP等方式来替代,经网友证实是安全可行的。
目录
相关文章
|
机器学习/深度学习 算法 前端开发
【数据挖掘】袋装、AdaBoost、随机森林算法的讲解及分类实战(超详细 附源码)
【数据挖掘】袋装、AdaBoost、随机森林算法的讲解及分类实战(超详细 附源码)
271 0
|
Linux 开发工具 Windows
中国时间服务器,国内阿里云时间服务器
中国时间服务器,国内阿里云时间服务器很多用户使用的是国外VPS使用过程中常常遇到时间与国内不同步的情况好在阿里提供了7台NTP服务器,地址如下:阿里云提供了7个NTP时间服务器也就是Internet时间同步服务器地址 ntp1.
40295 0
|
4月前
|
自然语言处理 JavaScript 前端开发
一夜获千星!已获 1.7k+,Art Design Pro:Vue3 + Vite + TypeScript 打造的高颜值管理系统模板,这个让后端小哥直呼救命的后台系统
Art Design Pro 是一款基于 Vue 3、Vite 和 TypeScript 的高颜值后台管理系统模板,已获 1.7k+ 星标。项目专注于用户体验与视觉设计,支持主题切换、多语言、权限管理及图表展示等功能,内置常用业务组件,便于快速搭建现代化管理界面。其技术栈先进,开发体验流畅,适配多设备,满足企业级应用需求。项目地址:[GitHub](https://github.com/Daymychen/art-design-pro)。
571 11
|
SQL 存储 关系型数据库
COALESCE 函数:SQL中的空值处理利器
【8月更文挑战第31天】
6107 0
|
机器学习/深度学习 人工智能 数据可视化
号称能打败MLP的KAN到底行不行?数学核心原理全面解析
Kolmogorov-Arnold Networks (KANs) 是一种新型神经网络架构,挑战了多层感知器(mlp)的基础,通过在权重而非节点上使用可学习的激活函数(如b样条),提高了准确性和可解释性。KANs利用Kolmogorov-Arnold表示定理,将复杂函数分解为简单函数的组合,简化了神经网络的近似过程。与mlp相比,KAN在参数量较少的情况下能达到类似或更好的性能,并能直观地可视化,增强了模型的可解释性。尽管仍需更多研究验证其优势,KAN为深度学习领域带来了新的思路。
5261 5
|
负载均衡 应用服务中间件 网络安全
Nginx七层(应用层)反向代理:HTTP反向代理proxy_pass篇(一)
Nginx七层(应用层)反向代理:HTTP反向代理proxy_pass篇(一)
2608 0
Delphi调用BarTender打印条码标签简明开发教程
Delphi调用BarTender打印条码标签简明开发教程
255 1
|
druid Java 关系型数据库
Druid连接池的基本配置与使用
Druid连接池的基本配置与使用
4082 0
Druid连接池的基本配置与使用
|
SQL 关系型数据库 数据库
|
存储 机器学习/深度学习 安全
一文搞懂什么是Raid
一文搞懂什么是Raid
1115 0