MDIChild variabel durch TStringList.Objects erstellen

[robroy85]

Hallo allerseits!
Ich bin nun auf eine recht simple Art umgestiegen und zwar mit Hilfe eines TValueListEditors:

Delphi-Quellcode:

procedure TMainForm.FormCreate(Sender: TObject);
begin
  RelFormValueList := TValueListEditor.Create(Self);
  with RelFormValueList do
  begin
     InsertRow('Class','TClassDataForm',True);
     InsertRow('Pupil','TPupilDataForm',True);
     InsertRow('Latecomer','TLateComDataForm',True);
  end;

Delphi-Quellcode:

    Child := TFormClass(FindClass(RelFormValueList.Values[SelTableBox.Text])).Create(Application);
    Child.Caption := SelTableBox.Text;

Somit habe ich eine Verknüpfung zB mit dem Text 'Class' und dem entsprechenden Formular!

Irgendwelche Verbesserungsvorschläge? Ich fand die ObjectList recht interessant - hab aber keine Lösung erfunden wie ich dort meine Anforderungen hätte einbauen können

Gruss Robert