Message display in subform in delphi

Question

I am creating one subForm from Main form on button click event of Main Form.Now On subForm I have added one button named 'OK'.ModalResult property of Button set to mrOK. On Ok button click i want to peform some validations. If there is some error i want to show it on subform and should focus on the error filed of SubForm. But I am able to show error message and after error msg displayed Subform closes and main form will be displayed. Below is part of code. Plz help me.

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;

[Error] SubForm.pas(53): BREAK or CONTINUE outside of loop

NGLN
– NGLN

2011-08-17 14:48:43 +00:00
Commented Aug 17, 2011 at 14:48 — NGLN
– NGLN, Commented Aug 17, 2011 at 14:48

Nathanial Woolls · Accepted Answer · 2011-08-17 11:21:40Z

5

Set the ModalResult property on the Button back to mrNone. Alter your event handler:

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

answered Aug 17, 2011 at 11:21

Nathanial Woolls

5,30128 silver badges32 bronze badges

Sign up to request clarification or add additional context in comments.

Comments

jpfollenius · Accepted Answer · 2011-08-17 11:21:44Z

2

Break is not what you want here. Use Exit if you want to leave the current function or procedure. Also make sure that you only set the modal result if you want the form to close, in your example:

procedure TfrmAddField.btnOKClick(Sender:TObject);
begin
  if edit1.text = '' then
  begin
    MessageDlg('Error',mtWarning,[mbOK],0);
    edit1.setfocus;
    Exit;
  end;     
 // to be continued
 ModalResult := mrOK;          // validation worked, close the form!
end;

answered Aug 17, 2011 at 11:21

jpfollenius

16.7k11 gold badges98 silver badges166 bronze badges

2 Comments

David Heffernan Over a year ago

I know it has the same effect, but I think that Abort conveys the meaning better that exit.

user219760 Over a year ago

actually having break outside of a loop should not compile

Collectives™ on Stack Overflow

Message display in subform in delphi

2 Answers 2

Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related