Delphi XE之路（7）Mobile MessageDlg函数

在用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等方式来替代，经网友证实是安全可行的。