MDI-Child per Function erzeugen

[neolithos]

Delphi-Quellcode:

function TclsExecuteFunction.OpenForm(clsForm :TFormClass): TForm; 
begin 
  Result := nil;
  try 
    Result := clsForm.Create(Application.MainForm); 
    ...
  except 
    FreeAndNil(Result);
  end; 
end;