Impossible to stop closing of modal forms in OnClose/OnCloseQuery handlers

[Vladimir Kustikov]

When I called ShowModal, I want to handle OnClose/OnCloseQuery event and stop form closing in some cases. But it is impossible, because form exits from modal loop (which waits ModalResult value) and sends OnClose/OnCloseQuery events AFTER that.

So, I set Action := caNone and ModalResult := mrNone in the OnClose handler, but form doesn't react on it and closes IN ANY CASE (because execution is not in the ShowModal cycle).