FireMonkey跨平台C++应用iOS/Android端ShowMessage行为异常

老兄，这个问题我太熟了——本质是Windows和移动平台（iOS/Android）的UI线程模型差异搞的鬼！

先给你掰明白为啥Windows正常，移动平台乱序：

• 在Windows上，ShowMessage是模态对话框，它会自己启动一个消息循环，用户不点OK，代码就卡在ShowMessage这一行，后面的Sleep根本不会执行，所以顺序完全符合预期。
• 但到了iOS/Android，情况就不一样了：FMX的对话框（不管是ShowMessage还是官方推荐的TDialogService）本质是异步的，而且UI线程绝对不能被阻塞！你在OnShow事件里直接调用Sleep，会把UI线程卡死——系统没法处理弹窗的渲染、用户输入这些操作，你的代码却还在自顾自往下跑，等所有Sleep都结束，UI线程终于能处理积压的弹窗请求时，最后一条消息就先蹦出来了。

解决方法一：用TTimer分步执行（最简单直观） #

把你的流程拆成多个小步骤，用定时器触发下一步，完全不阻塞UI线程：

1. 在Form上拖3个TTimer组件（或者复用1个也行），设置每个的Interval为2000，Enabled设为false。
2. 改写代码：

void __fastcall TForm1::FormShow(TObject *Sender)
{
    // 第一步：弹第一个消息
    ShowMessage("Start");
    // 启动定时器，2秒后执行下一步
    Timer1->Enabled = true;
}

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    Timer1->Enabled = false;
    // 弹第二个消息
    ShowMessage("Slept 1 sec");
    // 启动下一个定时器
    Timer2->Enabled = true;
}

void __fastcall TForm1::Timer2Timer(TObject *Sender)
{
    Timer2->Enabled = false;
    // 弹最后一个消息
    ShowMessage("Slept 2 sec");
}

这种方式完全贴合UI线程的工作机制，每个弹窗都等用户点完OK，定时器才会触发下一步，绝对不会乱序。

解决方法二：用后台线程+UI同步（适合复杂流程） #

如果你的逻辑更复杂，用后台线程处理等待，再回到UI线程弹对话框：

#include <System.Threading.hpp>

void __fastcall TForm1::FormShow(TObject *Sender)
{
    // 启动一个后台线程
    TTask::Run([](){
        // 必须回到UI线程弹对话框
        TThread::Synchronize(nullptr, [](){
            ShowMessage("Start");
        });
        // 后台线程里Sleep，不会卡UI
        Sleep(2000);
        
        TThread::Synchronize(nullptr, [](){
            ShowMessage("Slept 1 sec");
        });
        Sleep(2000);
        
        TThread::Synchronize(nullptr, [](){
            ShowMessage("Slept 2 sec");
        });
    });
}

这里重点是：Sleep放在后台线程执行，不会阻塞UI；所有弹窗操作必须通过TThread::Synchronize切回UI线程——移动平台的UI操作绝对不能在后台线程做！

解决方法三：用异步对话框+回调（最符合移动平台规范） #

如果用FMX官方推荐的TDialogService（比原生ShowMessage更跨平台友好），可以用回调函数串联流程：

#include <FMX.DialogService.hpp>

void __fastcall TForm1::FormShow(TObject *Sender)
{
    // 第一个弹窗，用户点OK后执行回调
    TDialogService::ShowMessage("Start", [](){
        // 用TTask::Delay做非阻塞等待
        TTask::Delay(2000).Then([](){
            // 切回UI线程弹第二个弹窗
            TThread::Synchronize(nullptr, [](){
                TDialogService::ShowMessage("Slept 1 sec", [](){
                    // 重复逻辑，弹最后一个弹窗
                    TTask::Delay(2000).Then([](){
                        TThread::Synchronize(nullptr, [](){
                            TDialogService::ShowMessage("Slept 2 sec");
                        });
                    });
                });
            });
        });
    });
}

这种方式完全遵循移动平台的异步编程模型，不会有任何阻塞问题，也是长期维护的最优解。

最后再提两个关键提醒 #

1. 移动平台的UI线程是“玻璃心”，绝对不能用Sleep、长时间计算等操作阻塞它，否则轻则UI错乱，重则被系统判定为无响应强制关闭。
2. 所有UI相关操作（弹窗、控件更新等）必须在UI线程执行，后台线程要通过同步方法切回来。

内容的提问来源于stack exchange，提问作者relayman357