delphi - 确保 ShowMessage 保持在最前面

我有几个应用程序，我调用 ShowMessage('Complete!');在长时间的手术结束时。

大多数情况下，这很好用，但每隔一段时间，消息对话框就会出现在主窗体后面。

我有什么方法可以确保 ShowMessage 始终处于最前面？

谢谢!

最佳答案

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

这将具有作为系统 native 对话框而不是自产的 Delphi 版本的好处。它也支持剪贴板操作。

如果您想变得非常花哨，那么您可以使用 Vista task dialog ，但这要复杂得多，而且对于这样一个简单的对话框，您显然不需要它。

关于delphi - 确保 ShowMessage 保持在最前面，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/5391443/