Question

delphi弹出提示框问题

请问我在一个窗体中放置了一个EDIT，然后加程序控制输入如果是数字则提交，如果是其他字符，则弹出提示错误的对话框，但错误对话框弹出后原对话框就消失了，怎么回事？
怎么写程序让原对话框不消失，并且焦点在提示对话框上？

Answer 1

一、使用MessageDlg函数.例如：MessageDlg('xxxxxx!xxxxx', mtWarning, [mbOK], 0);

二、自定制窗口做为对话框时，例比：Form2为对话框窗口。使用：Form2.ShowModal方法。

Answer 2

你说的对话框消失是说edit中的文字吗？不然怎么错误对话框弹出后原对话框就消失了呢，什么showmessage啦，messagedlg啦都不会这样啊。

Answer 3

直接使用MessageDlg函数,就能达到你的要求