Databases
StackOverflow2013
Postsdbo
PO
 

Note that there are some explanatory texts on larger screens.

plurals
  1. PO
    primarykey
    data
    text
    <p>My application works in the way you describe. Here is the approach I took. I would have liked to find a simpler approach but never did. </p> <p>I started out by reading these articles. This first one is an great write up by Peter Below:</p> <p><a href="http://groups-beta.google.com/group/borland.public.delphi.winapi/msg/e9f75ff48ce960eb?hl=en" rel="nofollow noreferrer">http://groups-beta.google.com/group/borland.public.delphi.winapi/msg/e9f75ff48ce960eb?hl=en</a></p> <p>Other information was also found here, however this did not prove to be a valid solution: for my use: <a href="http://blogs.teamb.com/DeepakShenoy/archive/2005/04/26/4050.aspx" rel="nofollow noreferrer">http://blogs.teamb.com/DeepakShenoy/archive/2005/04/26/4050.aspx</a></p> <p>Eventually here is what I ended up with.</p> <p>My splash screen doubles as the Application Main form. The Main form has a special tie to the Application Object. Using all secondary forms gets me the behavior that I was looking for.</p> <p>In each form that I want on the task bar I override CreateParams. I do this on my edit forms and what the users sees as the "main form"</p> <pre><code>procedure TUaarSalesMain.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.ExStyle := Params.ExStyle or WS_EX_APPWINDOW; Params.WndParent := GetDesktopWindow; end; </code></pre> <p>My "Main" form as far as Delphi is concerned loads the true main form in its Activitate function. I use a member variable to keep track of the first activate. Then at the end of the function I hide the splash form, but do not close it. This was important for me because if the user was editing a document and closed the main form I did not want the edit screens to be forced closed at the same time. This way all of the visible forms are treated the same.</p> <pre><code> if FFirstActivate = false then exit; FFristActivate := false; /* Main Load code here Update Splash label, repaint Application.CreateForm etc. */ // I can't change visible here but I can change the size of the window Self.Height := 0; Self.Width := 0; Self.Enabled := false; // It is tempting to set Self.Visible := false here but that is not // possible because you can't change the Visible status inside this // function. So we need to send a message instead. ShowWindow(Self.Handle, SW_HIDE); end; </code></pre> <p>But there is still a problem. You need the main/splash window to close when all other forms are closed. I have an extra check in my close routines for Parent &lt;> nil because I use forms as plugins (form my purposes they work better than frames). </p> <p>I didn't really like using the Idle event, but I don't notice this being a drag on the CPU.</p> <pre><code>{ TApplicationManager.ApplicationEventsIdle --------------------------------------------------------------------------- } procedure TApplicationManager.ApplicationEventsIdle(Sender: TObject; var Done: Boolean); begin if Screen.FormCount &lt; 2 then Close; end; { TApplicationManager.FormCloseQuery --------------------------------------------------------------------------- } procedure TApplicationManager.FormCloseQuery(Sender: TObject; var CanClose: Boolean); var i: integer; begin for i := 0 to Screen.FormCount - 1 do begin if Screen.Forms[i] &lt;&gt; self then begin // Forms that have a parent will be cleaned up by that parent so // ignore them here and only attempt to close the parent forms if Screen.Forms[i].Parent = nil then begin if Screen.Forms[i].CloseQuery = false then begin CanClose := false; break; end; end; end; end; end; { TApplicationManager.FormClose --------------------------------------------------------------------------- } procedure TApplicationManager.FormClose(Sender: TObject; var Action: TCloseAction); var i: integer; begin for i := Screen.FormCount - 1 downto 0 do begin if Screen.Forms[i] &lt;&gt; self then begin // Forms that have a parent will be cleaned up by that parent so // ignore them here and only attempt to close the parent forms if Screen.Forms[i].Parent = nil then begin Screen.Forms[i].Close; end; end; end; end; </code></pre> <p>This has served me well so far. I did make a small change for Vista because the icon for my "Main/Splash" screen was still showing. I don't remember what that was though. I probably don't need to set width, height, enabled, and send the hide message on the splash screen. I just wanted to make sure it didn't show up :-).</p> <p>Dealing with the close events was necessary. If I remember correctly that was needed for when windows sent a shutdown message. I think only the main form gets that message.</p>
    singulars
    1. This table or related slice is empty.
    1. POMultiple app windows activation not working correctly
      singulars
      1. PTQuestion
    1. PTAnswer
    1. This table or related slice is empty.
    1. USMark Elder
    plurals
    1. This table or related slice is empty.
    1. This table or related slice is empty.
    1. POMultiple app windows activation not working correctly
      singulars
      1. PTQuestion
    1. This table or related slice is empty.
    1. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    2. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    3. VO
      singulars
      1. PO
      1. This table or related slice is empty.
      1. VTUpMod
    1. COThe hidden splash sounds horrible, but it might actually solve another issue too. This could be what I go with if nothing ideal appears. Thanks!
      singulars
      1. PO
      1. USmj2008
    2. COI also took a similar approach with one of my applications and it worked well. I added some extra code to call application minimize when the "main form" was minimized, and added an event to the application.onrestore to restore the "main form".
      singulars
      1. PO
      1. USskamradt
    3. COI agree the hidden splash is horrible. If something better appears I will be changing my code as well :-). It's too bad that stackoverflow was not around when I first wrote this.
      singulars
      1. PO
      1. USMark Elder
 

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