Erstellen einer MDI Anwendung

[sakura]

Folgender Code-Auschnitt sollte verdeutlichen, wie Du überprüfst, ob ein bestimmtes Formular bereits existiert. Wenn es existiert, wird es nach vorn gebracht, wenn nicht, dann wird es erstellt.

Delphi-Quellcode:

procedure TForm1.mniShowFormTyp1(Sender: TObject);
var
  I: Integer
begin
  for I := 0 to Pred(MDIChildCount) do
    if MDIChildren[I] is TMDIFormTyp1 then
    begin
      MDIChildren[I].BringToFront;
      Exit;
    end;
  TMDIFormTyp1.Create(Self);
end;

Ich hoffe, daß es Dir weiterhilft.

...:cat:...