delphi - 确保 ShowMessage 保持在最前面

Question

我有一些应用程序，我调用 ShowMessage('Complete!');在长时间操作结束时。

大多数时候，这效果很好，但每隔一段时间，消息对话框就会显示在主窗体后面。

有什么方法可以确保 ShowMessage 始终位于顶部吗？

谢谢!

Answer 1

调用 Windows MessageBox()相反，API 并将句柄传递给事件表单。实际上，我的代码一直使用 Application.MainFormHandle ，因此我确信这是一种合理且简单的方法。

这将具有系统 native 对话框而不是本地开发的 Delphi 版本的优点。它还支持剪贴板操作。

如果你想变得非常奇特，那么你可以使用 Vista task dialog ，但这要复杂得多，而且您显然不需要它来完成如此简单的对话框。