德尔福 – 确保ShowMessage保持最佳状态

我有几个应用程序,我称之为ShowMessage(‘完成！’);在长期运作结束时.

大多数情况下,这很有效,但每隔一段时间,Message Dialog就会显示在主窗体后面.

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

谢谢！

改为调用 Windows MessageBox() API并将句柄传递给活动表单.实际上,我的代码一直使用Application.MainFormHandle,因此我确信这是一种合理而简单的方法.

这将是系统本机对话而不是本土Delphi版本的好处.它还支持剪贴板操作.

如果你想变得非常花哨,那么你可以使用Vista task dialog,但这要复杂得多,你显然不需要它来进行如此简单的对话.