MDI-ClientForm erzeugen

[Quake]

Moin moin,

ich habs jetzt selber heraus bekommen wie das geht

Code:

procedure THauptForm.ErsteMenuPunktClicken(Sender: TObject); 
  begin 
    MDIClientFormErzeugen(TMeinErstesMDIClienForm); 
  end; 

function THauptForm.MDIClientFormErzeugen(FormularKlasse: TFormClass): TForm; 
  var 
    i: integer;
  begin 
    for i:=0 to pred(MDIChildCount) do 
      if MDIChildren[i] is FormularKlasse then 
      begin
        result:=MDIChildren[i];
        MDIChildren[i].BringToFront; 
        MDIChildren[i].WindowState:=wsNormal; 
        Exit; 
      end; 
    Application.CreateForm(FormularKlasse,result); 
  end;

ciao
Quake