Form aus String erstellen

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

[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

[vagtler]

Zitat von mkinzler:

[...] Am Ende rätst du ihm noch, dass er die Doku liest.

Das wäre jetzt aber wirklich zu viel verlangt...