怎么让提示框显示在最前端？？(100分)

qinsir · 2002-06-12

我有一个程序，当最小化时，程序在特定的条件下会弹出一个窗口，但是这个提示框并不在
最前端，也就是用户看不到这个提示框，我该怎么做呢？我使用的messagebox提示框，我之所以不
选择messagedlg是因为不能编辑提示框的标题。
我怎么才可以使我的提示框显示在最前端？

qdyoung · 2002-06-12

procedure ShowMessageFront(Msg: string);
begin
MessageBox(GetForegroundWindow(), PChar(Msg), PChar('提示'), MB_OK);
end;

bubble · 2002-06-12

首先
Application.BringToFront

hbezwwl · 2002-06-12

application.messagebox(...)

txdelphi · 2002-06-12

你可以自己定义一个提示窗体并把这个窗体的formstyle属性设为fsStayOnTop

凌晨 · 2002-06-19

在Flags中加入MB_TOPMOST
例：Application.MessageBox('提示框显示在最前端','提示',MB_OK or MB_ICONINFORMATION or MB_TOPMOST);

凌晨 · 2002-06-19

qinsir · 2002-11-26

接受答案了.