MDI-Child per Function erzeugen

[samson]

Hallo,

ich bin gerade bei einem ziehmlich mächtigen MDI-Project dran. Hierbei muss ich ziehmlich viele MDI-Childs zur laufzeit erzeugen. Also würde ich Functionen schreiben die so aussehen:

Delphi-Quellcode:

function TclsExecuteFunction.KundeOeffnen(const intFmID:integer):boolean;
var
  fmKunde   :TfmKunde;
begin
  result := false;
  fmKunde := TfmKunde.Create(Application.MainForm);
  try
    fmKunde.WindowState := self.WindowState;
    fmKunde.Tag := intFmID;
    fmKunde.Show;
    result := true;
  except
    fmKunde := nil;
    fmKunde.Free;
  end;
end;

Das geht. Ich bin aber faul und möchte dies Schritte in einer Function machen lassen.

wie z. B.:

Delphi-Quellcode:

function TclsExecuteFunction.OpenForm(Form:TForm; clsForm:TForm; intFmID:integer): boolean;
begin
  result := false;
  Form := (clsForm as TForm).Create(Application.MainForm);
  try
    Form.Tag := intFmID;
    result := true;
  except
    Form := nil;
    Form.Free;
  end;
end;

function TclsExecuteFunction.KundeOeffnen(const intFmID:integer):boolean;
var
  fmKunde   :TfmKunde;
begin
  self.OpenForm(fmKunde, (TfmKunde as TForm), intFmID);
end;

Vorteil ist, das ich falls es globale Änderungen ergeben nur diese Function anpassen brauch. Des Weiteren ist diese Function was für die Schreibfleissigen Programmierer und ich möchte auch dazu gehören.

Ich hoffe, ihr habe eine Idee.

Gruss

Samson