delphi application的对话框为什么跑到主窗口后面 ?

很多人纳闷,delphi写的程序,有时候对话框会跑到主窗口后面,怎么调整都不好,以为delphi天生的缺陷,经过我的研究后终于发现了问题所在:

原来很多人做循环处理的时候,常常在循环体内加入application.processmessages,这会使长时间的循环处理的时候,界面看起来不像卡死.

但是这时候如果点击了其他界面,最前端的窗口就不是当前程序的application了;这是因为application.processmessage响应了你的循环期间的鼠标点击,使得主界面焦点发生了变更.为了使主界面仍然回到当前你希望的程序,使得能正常显示出application.Messagebox,就必须在显示对话窗体之前,激活application为当前程序:加入下面句子:

  application.bringfront; //必须加,否则可能会让对话框程序显示不出来

  //然后

  application.ShowMessage('xxxxx');你的对话框语句.

  记住,只有在调用了application.processmessages后才需要加入这样的语句.