Delphi 怎么样把 ShowMessage 的窗口放在最上面

Delphi 怎么样把 ShowMessage 的窗口放在最前面。我使用一个线程做的一个程序，线程走完过后给个提示信息 ShowMessage ，当前线程走的页面还是可以点击，但是点击过后，ShowMessage 页面就到下面去了。现在我想做成这样，如果我不点击 ShowMessage 页面的确定，不管我怎么点击当前页面，ShowMessage 页面总是保持在最前面。求大神帮忙解答，谢谢！

举报该问题

推荐答案 2014-07-31

弄线程最好不要调用showmessage，自己添加一个窗口显示吧，线程里是不能实现的

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/UDvDixvvUs2DnpUxppv.html

其他回答

第1个回答 2014-07-31

你改用Application.MessageBox试试

相似回答

delphi调用SetWindowPos函数, 让当前窗口始终处在程序的最前面拜托各...答：格式一：mailto: 如：ShellExecute(Handle,"open", "mailto:", NULL, NULL, SW_SHOWNORMAL);打开新邮件窗口。格式二：

Delphi 窗体的隐藏问题答：在主窗体的FormShow里动态创建登录窗体，登录成功释放即可。procedure TMain.FormShow(Sender: TObject);begin with TLogin.Create(nil) do begin ShowModal;if ModalResult = mrOk then begin ShowMessage('成功');end else begin ShowMessage('失败');Free;Application.Terminate;Abort;end;Free;end;end...

Delphi如何让隐藏的窗体显示答：如果是其他程序的窗口，需要先查找目标窗口，得到窗口句柄，然后用 Windows API 显示。var Wnd: HWND;...Wnd := FindWindow("窗口类名", "窗口标题");if Wnd <> 0 then // 找到了窗口 ShowWindow(Wnd, SW_SHOW); // 显示窗口else ShowMessage("没找到窗口");窗口类名需要用专业工具（比...

DELPHI中怎么调用showmessage这个函数来弹出一个对话框答：delphi 的 ShowMessage 函数是很常用的一个功能函数，使用也很简单：ShowMessage('需要发送的信息。');上面的代码，将弹出以下对话框（根据 windows 系统的不同，样式稍有区别）：这种对话框，很简洁。如果需要复杂一些的对话框，可以使用 MessageBox、MessageDlg 函数，如下图：...

delphi中showmessage后出来的窗体标题怎么改答：可以用MessageBox.写个过程放在代码段最前段调用：procedure ShowMessage(const Msg, Title: string);beginMessageBox(Application.Handle, PChar(Msg), PChar(Title), MB_OK);end;//调试即可procedure TForm1.Button1Click(Sender: TObject);beginShowMessage('Test','标题');end;...

如何制作在delphi中的showmessage答：ShowMessage 函数是 delphi 常用的函数之一，其函数原型定义如下：此函数用于显示一个消息对话框，但很简单，只包含一个 OK（确定）按钮。如果想要获取更好的效果或是更多的功能，可以使用 MessageBox、MessageDlg 函数：

大家正在搜

什么样的人放在什么样的位置怎么把页面放在最上什么样的花放在窗台上好怎么样把要打印的东西放在一页什么样的花放在家里对身体最好怎么样能把图片放在一起什么样的花放在家里最好什么样的花放在客厅最好什么样的花草放在卧室里最好