[SOLVED] Stop the OKButton

[nana232]

I use TButtonPanel in my sub-form.
I have some condition to identify my result within the "OKButtonClick" Event.

When OK Button is clicked
if Condition = True >>> close form.
if Condition = False >>> I want the form is still show.

But the problem is that the form is closed for all condition.

How to break the OKButton?

[wp]

The OKButton sets the Modalresult of the form to mrOK and this closes the form; the form remains open while its Modalresult is mrNone.

So, in your validation in the OKButton's OnClick you must just simply reset ModalResult back to mrNone to keep the form open:

Code: Pascal  [Select][+][-]

1. procedure Form1.OKButtonClick(Sender: TObject);
2. begin
3.   if SomeErrorCondition  then begin
4.     ModalResult := mrNone;
5.     ShowMessage('An error has occured. The form cannot be closed.');
6.   end;
7.   // No need to do anything if no error had occured - the button will close the form automatically.
8. end;

[howardpc]

A small example using a TButtonPanel is attached.

[nana232]

Thank you