MDIChild variabel durch TStringList.Objects erstellen

[robroy85]

Hallo liebe Community,

ich habe in meiner MDI-Anwendung zur Zeit ganze vier verschiedene Arten von MDIChild-Fenstern.
Also der schnellste (und schlechteste) Weg wäre wohl einfach für folgendes Problem "haufenweise" if bzw case-Abfragen zu erstellen.

Bisher werden meine "Childs" durch eine solche Procedure erstellt:

Delphi-Quellcode:

procedure TMainForm.CreateTableChild;
var
  Child: TForm;
begin
  { Neues untergeordnetes MDI-Fenster erzeugen }
  ClearQuery;
  FQueryFrom := SelTableBox.Text;
  CreateQuery;
  Child := TTableForm.Create(Application);
  Child.Caption := SelTableBox.Text;

end;

Da sich aber auf dem Hauptformular "globale" Toolbuttons wie "Neu", "Öffnen", etc. befinden, die, je nachdem was in "SelTableBox.Text" befindet, das jeweilige Clientfenster starten sollen und ich nicht mit if Abfragen was konstruieren moechte, brauche ich eure Hilfe!

Nun habe ich versucht eine Referenzliste meiner Childformulare zu erstellen, siehe folgendes:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  RelFormList := TStringList.Create;
  with RelFormList do
  begin
    AddObject('Classes',ClassDataForm);
    AddObject('Pupils',PupilDataForm);
    ....

Ein letzer Blick auf meine Funktion fuer den "Öffnen"-Toolbutton:

Delphi-Quellcode:

procedure TMainForm.InsertNewExecute(Sender: TObject);
var
  Child: TForm;
  RelFormIndex : Integer;
begin
  RelFormIndex := RelFormList.Indexof(SelTableBox.Text);
  if RelFormIndex = -1 then abort;

  { Neues untergeordnetes MDI-Fenster erzeugen }
  ClearQuery;
  FQueryFrom := SelTableBox.Text;
  CreateQuery;
  ///// HIER LIEGT DER FEHLER 'Zuviele Parameter' ////////////////
  Child := RelFormList.Objects[RelFormIndex].Create(Application);
  //////////////////////////////////////////////////////////////
  Child.Caption := SelTableBox.Text;
...

Also was muss ich fuer
Child := RelFormList.Objects[RelFormIndex].Create(Application)
einsetzen, damit das ganze funktioniert?
Sry, mein Verständnis für das Thema 'Objekte' entwickelt sich gerade erst...
Fuer andere Lösungswege bin ich natürlich genauso offen! Genau aus diesem Grund habe ich mein Problem etwas ausführlicher als vielleicht nötig beschrieben.

Danke

MfG Robert