delphi - delphi中子窗体中的消息显示

Question

我在主窗体的按钮单击事件上从主窗体创建一个子窗体。现在在子窗体上我添加了一个名为“确定”的按钮。按钮的 ModalResult 属性设置为 mrOK。在确定按钮上单击我想执行一些验证。如果有一些错误我想在子表单上显示它并且应该关注子表单的错误提交。但是我能够显示错误消息，并且在显示错误消息后子窗体关闭并显示主窗体。下面是部分代码。请帮助我。

result:= frmAddField.showModal= mrOK; // subForm

procedure TfrmAddField.btnOKClick(Sender:TObject);
begin
  if edit1.text = '' then
  begin
    MessageDlg('Error',mtWarning,[mbOK],0);
    edit1.setfocus;
    break;
  end;
 // to be continued
end;

Answer 1

将按钮上的 ModalResult 属性设置回 mrNone。更改您的事件处理程序:

procedure TfrmAddField.btnOKClick(Sender:TObject); 
begin 
  if edit1.text = '' then 
  begin 
    MessageDlg('Error',mtWarning,[mbOK],0); 
    edit1.setfocus; 
  end else
    ModalResult := mrOK;
end;