Databases
StackOverflow2013
Postsdbo
PODelphi - overriding hide behaviour of TForm.showModal
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PODelphi - overriding hide behaviour of TForm.showModal
    primarykey
    data
    text
    <p>I am currently writing a windowing system for an existing Delphi application.</p> <p>Currently, the program consists of a number of full-sized forms which are shown modally in the order they are required and none of which can be moved by the user. My aim is to allow all of these forms to be moveable. Previously forms were stacked on top of each other but since none could be moved the background forms were not visible to the user. My solution so far has been to hide the 'parent' form when opening a new child, and reshowing it when that child is closed.</p> <p>Unfortunately since each child is called with showModal, the call the make the parent form visible does not come until after the modal process has completed and hence after the child form has been hidden so the user sees a split second flash where no form is visible.</p> <p>Is there a way I can prevent the modal forms from being hidden automatically after their process has completed? This would allow me to manually hide them once the parent form is visible again. I have tried to schedule this in the FormHide event of each child form but this does not work as a child form is also hidden when opening one of its own children.</p> <p>EDIT:</p> <p>Here is what I have so far based of Remy's advice below</p> <pre><code>procedure openModalChild(child: TForm; parent: TForm); var WindowList: Pointer; SaveFocusCount: Integer; SaveCursor: TCursor; SaveCount: Integer; ActiveWindow: HWnd; Result: integer; begin CancelDrag; with child do begin Application.ModalStarted; try ActiveWindow := GetActiveWindow; WindowList := DisableTaskWindows(0); //set the window to fullscreen if required setScreenMode(child); try Show; //show the child form try SendMessage(Handle, CM_ACTIVATE, 0, 0); ModalResult := 0; repeat Application.HandleMessage; //if Forms.Application.FTerminate then ModalResult := mrCancel else if ModalResult &lt;&gt; 0 then closeModal(child as TCustomForm); until ModalResult &lt;&gt; 0; Result := ModalResult; SendMessage(Handle, CM_DEACTIVATE, 0, 0); if GetActiveWindow &lt;&gt; Handle then ActiveWindow := 0; finally parent.Show; Hide; end; finally EnableTaskWindows(WindowList); parent.Show; //reshow the parent form if ActiveWindow &lt;&gt; 0 then SetActiveWindow(ActiveWindow); end; finally Application.ModalFinished; end; end; end; </code></pre> <p>This works well but the only problem is the active repeat loop never breaks, even after the child has been escaped and so the parent form is never reshown. Is there any way I can resolve this?</p>
    singulars
    1. PO
      singulars
      1. PTAnswer
    1. This table or related slice is empty.
    1. PTQuestion
    1. USjmc
    1. USjmc
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. PO
      singulars
      1. PTAnswer
    1. VO
      singulars
      1. PODelphi - overriding hide behaviour of TForm.showModal
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PODelphi - overriding hide behaviour of TForm.showModal
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. PODelphi - overriding hide behaviour of TForm.showModal
      1. This table or related slice is empty.
      1. VTUpMod
    1. COHave you tried making the parent form visible from the child form prior to closing?
      singulars
      1. PODelphi - overriding hide behaviour of TForm.showModal
      1. USMarcus Adams
    2. COI don't get how hiding the 'parent' window will result in movability of either form. Please describe your goal precisely, or delete the superfluous part from the question.
      singulars
      1. PODelphi - overriding hide behaviour of TForm.showModal
      1. USNGLN
    3. COHiding the parent doesn't change whether either form can move (they already can). The forms I am referencing should be all within one window but due to existing design implementation they are not. To give the one-window effect each newly shown child is positioned and sized identical to its calling parent and when closed the parent is relocated to the child position and made visible. Visually these appear as one window with the exception of a brief moment where no form is visible.
      singulars
      1. PODelphi - overriding hide behaviour of TForm.showModal
      1. USjmc
 

Querying!

 
Guidance
A row detail

Detail views are divided into sections. All the information in the data section comes from columns in the selected row. The other sections display data from other, related rows.

Related data can be related in a to-one or a to-many fashion. Captions of data related in a to-many fashion link to a list view showing a filtered view of the table.

Try moving around until you find a non-empty to-many entry and click on the label to get to one. You can move back to the root by clicking on the database name in the header.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload