Form aus String erstellen

[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.

[HolgerCW]

Vielleicht mal ein wenig Beispielcode was gemeint ist mit die Variable mit der Instanz übergeben.

[shmia]

Zitat von HolgerCW:

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

Man kann sich nicht duschen ohne nass zu machen.

Ich würde folgende Strategie empfehlen:
1.) prüfen, ob das Formular schon angelegt wurde

Delphi-Quellcode:

{**************************************************************************
 * NAME:    FindForm
 * DESC:    Sucht in Screen.Forms nach einem Formular mit der übergebenenen
 *          Formularklasse. Findet das erste Formular in Screen.Forms das
 *          von dieser Klasse abgeleitet ist. Weitere Instanzen können nicht
 *          gefunden werden.
 *************************************************************************}
function FindForm(FormClass: TFormClass): TForm;
var
   iForm: Integer;
begin
   Result := nil;

   for iForm := 0 to Screen.FormCount-1 do
   begin
      if Screen.Forms[iForm] is FormClass then
      begin
         Result := Screen.Forms[iForm];
         Break;
      end;
   end;
end;

2.) Falls das Formular schon existiert mit .BringToFront() nach vorne bringen
3.) Falls das Formular noch nicht existiert wird es dynamisch erzeugt
so wie in der Code-Library beschrieben

[HolgerCW]

Ok,

aber wenn ich die Form dynamisch erstellt habe, wie spreche ich diese dann an. Mit dem ursprünglichen Form-Namen geht es ja nicht mehr.

Soll heissen, wie kann ich aus anderen Prozeduren auf die erstellte Form zugreifen ?

Vorher ging es ja mit:

Code:

FM_Material.Close; //Beispiel

Nur das klappt ja nun nicht mehr.

Gruss

Holger

[Sir Rufo]

Wenn ich auf etwas zurückgreifen möchte, dann muss ich mir das merken, und auch merken wo ich das gemerkt habe.

Wenn du die Referenz auf die Form in MeineForm speicherst, dann würde ich das auch mal mit MeineForm.Close versuchen.

Aber Achtung: Die Standard Variablen für Formulare sind globale Variablen und somit für alle erreichbar.
Allerdings würde ich eh davon abraten bei einer dynamischen Erstellung dieses in globalen Variablen abzulegen.

Irgendwo wird es erzeugt und von dort wird die Referenz einfach weitergereicht an die, die es brauchen.

[HolgerCW]

Kann man der dynamischen Form nicht beim erstellen irgendwie den "Originalen"-Namen mitgeben ?

[Medium]

Name der Form <> Name einer Variablen, die auf die Instanz zeigt!

[Sir Rufo]

Zitat von HolgerCW:

Kann man der dynamischen Form nicht beim erstellen irgendwie den "Originalen"-Namen mitgeben ?

Nö, aber man kann die in dieser globalen Variablen speichern.

FM_Material := ...