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