delphi - ShowMessage 窗口丢失模式

Question

我使用TAcroPDFactiveX 控件来打印pdf 文档。应用程序打印页面，但如果需要打印 2 页，则打印第一页，然后显示消息对话框，要求用户翻页，然后打印第二页。这个概念非常简单，但由于未知原因，它无法正常运行。它确实打印了第一页，但随后使 ShowMessage 窗口闪烁（立即隐藏）并且应用程序似乎继续运行。然后我可以恢复隐藏在主应用程序窗口后面的丢失的 Showmessage 窗口，但是（奇怪的是）我可以轻松地在 showmessage 窗口和主应用程序之间更改焦点。看起来程序在其他线程中运行，因为 ActiveX？？？当我单击“确定”按钮时，将ShowMessage('Please, turn the page');执行之后的代码。谁能告诉我发生了什么事？这是示例：

procedure TForm1.btn1Click(Sender: TObject);
begin
acrpdf1.src := Getcurrentdir + '\temp.pdf';
acrpdf1.PrintAll;
ShowMessage('Please, turn the page'); //it does not hover over main window, it hides behind
Form1.Color:=clRed;  //it is executed after closing Showmessage window
end;