Question

delphi错误提示框问题

刚开始学习。。
编辑一个窗口，在文本框中输入数据，然后点击“添加”按钮。当没有数据输入时，点击按钮会提示让你输入按钮，然后关闭那个提示出口后回到原来的文本框。。
我这样写的，但是关闭错误提示框后，原来的文本框窗口也自己关了。。这个窗口是Form2，经过Form1一个按钮打开的。。
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
if Edit1.Text='' then
ShowMessage('请输入中文和英文！')
else
Form1.ListBox1.Items.Add(Edit1.Text);
Form1.ComboBox1.Items.Add(Edit2.Text);
end;

若以下回答无法解决问题，邀请你更新回答

Answer 1

问题不应该在这段代码。

追问

嗯，我试了，在主窗体中按钮同样的代码，主窗口不会关闭。。但是主窗体调用的第二个窗体就会关闭。。怎么回事呢？

追答

主窗体是怎么调用第二个窗体的？

追问

通过主窗体一个按钮，按下后第二个窗体出现。。。
在第二个窗体中有两个文本框，不输入数据直接点击确定按钮后弹出错误提示。。

追答

这个我当然知道啦，看主窗体那个按钮的事件代码。

追问

很简单，就是打开form2，并且让两个文本框为空

procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.ShowModal;
Form2.Edit1.Text:='';
Form2.Edit2.Text:='';
end;

追答

这段代码也不会导致form2被关闭，但这段代码后两句是没有用的，执行Form2.ShowModal;后，Form1就被挂起，直到Form2关闭，后两句才会被执行。form2被关闭的原因是form2中的按钮设置了ModalResult属性为非mrNone.