消息显示在delphi中的子表单中

Question

我在主窗体的按钮单击事件上从主窗体创建一个子窗体.现在在子窗体上我添加了一个名为按钮的'OK'.ModalResult属性设置为mrOK的按钮.在确定按钮上单击我想要执行一些验证.如果有一些错误我想在子窗体上显示它,应该关注SubForm的错误字段.但是我能够显示错误信息并在显示错误信息后显示子窗体关闭并显示主窗体.以下是代码的一部分.Plz帮助我.

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

将Button上的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;