Form aus String erstellen

[HolgerCW]

Hallo zusammen,

habe zwei Formen als *.pas - Datei erstellt. Jetzt möchte ich diese erstellen lassen, wenn in einer String-Variable der Name der entsprechenden Form steht.

Folgendes habe ich schon erstellt:

Code:

var
 Form_Name: String;
 MeineForm: TForm;

If Form_Name <> '' then
begin
 MeineForm := TForm(Form_Name);
 If MeineForm = nil then Application.CreateForm(???, MeineForm);
 MeineForm.Show;
end;

Wie kann ich die richtige Klasse der Form bei den Fragezeichen einfügen ?

Gruss

Holger

[vagtler]

Stichwort Factory

[HolgerCW]

Hallo,

danke für die schnelle Antwort, aber kannst mir ein bisschen mehr helfen ...

Gruss

Holger

[shmia]

Kuck mal hier in der Code-Library
http://www.delphipraxis.net/20198-fo...-erzeugen.html

[HolgerCW]

Danke,

aber wo kommt denn dieses "initialization" im Delphi-Code hin ?

Gruss

Holger

[vagtler]

Die Begriffe delphi und initialization mal in Google einzutippen kommt Dir nicht in den Sinn?

[mkinzler]

Wer macht den sowas?
Am Ende rätst du ihm noch, dass er die Doku liest.

[HolgerCW]

Wenn ich initialization unter die uses packke kommt eine Fehlermeldung . erwartet, aber ; erhalten ...

[HolgerCW]

Habe jetzt folgenden Code zusammengebaut:

Code:

var
 Form_Name, DatMod_Name: String;
 MeineForm: TForm;
 MeineForm_Klasse: TComponentClass;

begin

Form_Name := 'FM_Material'; //Als Beispiel

RegisterClass(TFM_Material);
MeineForm_Klasse := TComponentClass(FindClass('T' + Form_Name));
MeineForm := TForm(FindComponent(Form_Name));
If MeineForm = nil then Application.CreateForm(MeineForm_Klasse, MeineForm);
MeineForm.Show;

Wenn ich aber nun im FormClose-Ereignis der Form folgenden Code hinterlege:

Code:

FreeandNil(FM_Material);

reagiert das nicht mehr. Was ist zu tuen?

P.S: Eigentlich wollte ich ohne so eine Registrierung auskommen. Damit das voll dynamisch ist.

Dann kann ich auch gleich folgendes machen:

Code:

If MeineForm = nil then Application.CreateForm(TFM_Material, FM_Material);

[Sir Rufo]

Vielleicht mal die Variable mit der Instanz übergeben?

upps, das ist ja noch schlimmer als gedacht.

Im OnClose gibt es einen Parameter den man mit caFree bestücken kann.
Allerdings weiß die Form-Instanz ja nicht in welcher Instanz-Variablen du die überall gespeichert hast und kann daher diese auch nicht auf nil setzen.