Delphi form Owner Skips ShowMessage/Dialog call in component’s FormClose

delphidelphi-2010

My Delphi 2010 application has a number of non-modal forms that are created and owned by the mainform. One of these forms has a formclose procedure that pops up a dialog asking the user if they want to save changes. If the user closes the mainform, the "owned" form's FormClose procedure is called, however the dialog is not shown, and the user has no chance to save.

Any suggestions? I can see the procedure is being called in the debugger, but it seems to just skip the dialog. Same thing happens with a showmessage. Does the owner form somehow override the actual showing of these dialogs?

Thanks

Rusty

Best Answer

That kind of thing should go in the OnCloseQuery event. Set CanClose to false in the handler to abort the closing (which is more or less standard: in these situations, Yes, No and Cancel are the usual answers, with Cancel aborting the closing process).

Related Solutions

Delphi – How to show a modal form on top of its owner form (its owner is set to fsStayOnTop or not), just as TOpenDialog does

Set the modal form's PopupParent property, exactly like Remy suggested. That will parent the dialog to the StayOnTop form, which is what the dialog's Execute method is already doing. I'm not sure where Sertac's comments are coming from, but using PopupParent sets the window heirarchy correctly, so the dialog will always be above the StayOnTop form.

Delphi – how to find out which modal dialog has focus and bring it to the front

If a form that has focus takes too long to respond to messages (Form1), so that Windows thinks Form1 is unresponsive, and Form1 then displays a modal form (Form2), after Form2 is displayed and the application is processing messages again, Form1 will be brought to the front, thereby potentially "covering" Form2.

Putting this in the Application.OnIdle event will do the trick:

  if Assigned(Screen.ActiveForm) then
  begin
    if (fsModal in Screen.ActiveForm.FormState) and
       (Application.DialogHandle <= 0)) then 
    begin
      Screen.ActiveForm.BringToFront;
    end;
  end;

Best Answer

Related Solutions

Delphi – How to show a modal form on top of its owner form (its owner is set to fsStayOnTop or not), just as TOpenDialog does

Delphi – how to find out which modal dialog has focus and bring it to the front

Related Topic