Question

I have created MDI application in Delphi. Lets assume that I have a bunch of MDIChild forms in my application which are visible on the screen. I would like to perform a loop on those forms and check in what order each of the forms is displayed on the screen.

For example if I have 3 MDICHild forms:

FormA, FormB, FormC

and

FormB partly overlaps FormA and FormC partly overlaps FormB

I want to mark their Z property (deepth) as follows:

FormB.Z = 2 // that form is between FormA and FormC
FormA.Z = 3 // that form's distance is longest from user, form is overlapped by FormB and 
FormC.Z = 1 // that form is at the top of all forms in my application 

Thanks for your time.

Answer 1

J‘s answer loops through Screen.Forms. This contains all forms in the application, including non-MDI ones, as I see you found from your comment. You can filter your main form and About box manually, but that’s messy, and you’ll also need to do the same thing for other forms. I really don’t like having to do that because it seems rather error-prone.

Your question says you only want to know the z-order of MDI child forms within the parent, and in this case there’s a much better solution.

MDI children are listed in z-sorted order in the MDI parent form’s MDIChildren property. The code to find the Z depth would look something like this (untested):

function FindChildDepth(Child : TForm) : Integer;
var
  i : Integer;
begin
  Result := -1; // Form not found
  for i := 0 to MDIChildCount-1 do
  begin
    if (MDIChildren[i] == Child) then
    begin
      Result := i;
      Exit;
    end;
  end;
end;

That should return the depth of a child between 0 and n-1, where 0 is top, and -1 if the form is not found in the MDIChildren array. If you want “1” to mean top instead of 0, simply set Result to i+1 instead.