1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:

procedure TFormular_Hauptfenster.oeffne_adressbuchExecute(Sender: TObject);
var frm : TFormular_Adressbuch;
var i : Integer;
var open : Boolean;
begin
  open := false;

  // Fenster schon offen??? Dann nach vorne holen!!!!
  for i:=0 to self.MDIChildCount -1 do
  begin
    if (self.MDIChildren[i] is TFormular_Adressbuch) then
    begin
      open := true;
      self.MDIChildren[i].BringToFront;
      self.MDIChildren[i].SetFocus;
    end;
  end;

  // Fenster noch nicht offen?? Sofort öffnen!!!
  if open = false then
  begin
    frm := TFormular_Adressbuch.Create(self);
    frm.Show;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

type 
    { Array of form references } 
    A_TForm = Array [0 .. (($fff0 div SizeOf(TForm)) - 1)] 
        of TForm; 

procedure TFormular_Hauptfenster.hole_mailsExecute(Sender: TObject);
var frm : TFormular_Posteingang;
var i : Integer;
var open : Boolean;

var
    ChildCount: Integer;
    CurrentMDIChildCount: Integer;
    CurrentMDIChildren: ^A_TForm;

begin

  open := false;

  CurrentMDIChildCount := MDIChildCount;
  CurrentMDIChildren := AllocMem(CurrentMDIChildCount * SizeOf(CurrentMDIChildren^[0]));

  try
    for ChildCount := 0 to CurrentMDIChildCount - 1 do
    CurrentMDIChildren^[ChildCount] := MDIChildren[ChildCount];

    for ChildCount := CurrentMDIChildCount - 1 downto 0 do
    begin
      if (CurrentMDIChildren^[ChildCount] is TFormular_Posteingang) then
      begin
        open := true;
        CurrentMDIChildren^[ChildCount].BringToFront;
        if CurrentMDIChildren^[ChildCount].CanFocus then CurrentMDIChildren^[ChildCount].SetFocus;
      end;
    end;

  finally
    FreeMem(CurrentMDIChildren, CurrentMDIChildCount * SizeOf(CurrentMDIChildren^[0]));
  end;


  if open = false then
  begin
    frm := TFormular_Posteingang.Create(nil);
    frm.Show;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

Function TForm1.MDIChildExist (frm : TForm) : Boolean;
var
  cnt : Word;
begin
  Result := False;
  Application.ProcessMessages;
  if TForm(Owner).MDIChildCount > 0 then 
  begin
    cnt := 0;
    while (cnt < MDIChildCount) and (not Result) do 
    begin
      Result := (MDIChildren[cnt] = frm);
      inc(cnt);
    end;
  end;
end;					

1:
2:
3:
4:
5:
6:

      For some reason Delphi messes around with the MDIChildren array 
      when child forms are repositioned in code, causing the routine to 
      suddenly start accessing the wrong form in the middle of an 
      iteration! To get around this problem, allocate some memory to 
      make copies of the main form's MDIChildren array and use this 
      copy throughout the rest of the routine