Hallo MSCH,
ich danke für Deine Antwort. Jedoch haben wir uns ein wenig Missverstanden. Das Formular: TfmKunde ist ein
MDI-Child und wird durch die Klasse: TclsExecuteFunction erzeugt.
TclsExecuteFunction ist eine Klasse zum Hauptformular (
MDI) TfmMain.
Ich möchte alle Erzeugungen in der Klasse vornehmen.
Das
MDI-Child: TfmKunde, TfmLieferanten, TfmWarengruppen ....
Dazu möchte ich eine Allgemeine Routine schreiben, welche Standardvorgaben und das erzeugen derjenigen vornimmt.
Vorgehen in der Klasse ist folgender.
- Ich gehe in einer Function, die besagt, welches Formular erzeugt werden soll. Die ID des Formulars ist als Constante festgelegt und wird aus dem Hauptformular übergeben.
- Es wird eine Open-Function ausgeführt (OpenKunde, OpenLieferant...), die das ganze Erzeugt und anzeigt.
Mein Ziel ist, eine Function zu schreiben die ...
a) eine Formularvariable übergeben bekommt.
b) den Klassentyp übergeben bekommt.
c) die Formular-ID übergeben bekommt.
damit ich den ganz Quatsch mit Form := ClassenTyp.Create(Application.MainForm); nicht nochmal neu schreiben muss.
Was ich nicht schaffe ist den Klassentyp zu übergeben (TfmKunde, TfmLieferanten, TfmWarengruppen ...).
Hier stehe ich gerade.
Gruss
Samson