Modal Form OnClose ModalResult not yet assigned?

[99Percent]

I am trying to execute code on a modal form but only when the ModalResult=mrOk

At OnClose event of the form doesn't seem to have the ModalResult assigned yet so I cannot distinguish here if the form is closing with such modal result. I do not want to execute this code if the user is cancelling the form.

I have code on the TBitBtn with Kind=bkOk on click event, but this is not executed if the user presses enter elsewhere on the form.

Executing the code outside the form seems cumbersome at best.

Please help

[howardpc]

Set ModalResult explicitly in the form to mrCancel at creation.
Then use the form's OnCloseQuery event to check the value of ModalResult at closing.
Insert a simple test such as

Code: [Select]

if (ModalResult = mrOk)
 then canClose := True
else canClose := False;


[taazz]

setting modalresult to any value should automatically close the modal form and stop the modal loop to use it to hold some kind of value is not a safe tactic and should be avoided.

Pressing enter anywhere on the form should not close the form automatically there must be user code that takes care of that and not knowing how your form is handling it makes it impossible for us to propose any solution.

[99Percent]

setting modalresult to any value should automatically close the modal form and stop the modal loop to use it to hold some kind of value is not a safe tactic and should be avoided.

Pressing enter anywhere on the form should not close the form automatically there must be user code that takes care of that and not knowing how your form is handling it makes it impossible for us to propose any solution.

The form has a TBitBtn with ModalResult property set to mrOk, This causes the form to intercept keystrokes (even with KeyPreview property set to false) and close it if Enter key is hit. If I remove the button or set the ModalResult property to mrNone then that behavior stops

[taazz]

that is only possible if the tbitbtn.Default property is true and if that is so then when the buttons result is set to mrnone hitting enter should execute the button's onclick event where you can execute the code needed and at the end set the modalresult to mrok manually to close the form.

[99Percent]

that is only possible if the tbitbtn.Default property is true and if that is so then when the buttons result is set to mrnone hitting enter should execute the button's onclick event where you can execute the code needed and at the end set the modalresult to mrok manually to close the form.

I had set the TBitBtn Default Property to true and that was screwing up my program flow. I set it to false and all is fixed now.

Thanks!