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? :shock:
Am Ende rätst du ihm noch, dass er die Doku liest. :wink:

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

[vagtler]

Zitat:

Zitat von mkinzler (Beitrag 1184331)

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

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

[shmia]

Zitat:

Zitat von HolgerCW (Beitrag 1184336)

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

Delphi-Quellcode:

.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

Delphi-Quellcode:

MeineForm

speicherst, dann würde ich das auch mal mit

Delphi-Quellcode:

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!

[Bummi]

StringList.addObject ??

[Sir Rufo]

Zitat:

Zitat von HolgerCW (Beitrag 1184355)

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

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

Delphi-Quellcode:

FM_Material := ...

[HolgerCW]

Also funktioniert das nur mit globalen Variablen ?

So ein Zugriff geht ja auch nicht:

Code:

FM_Material.LA_Material_Langtext.Caption := '-';
FM_Material.WB_Browser.Navigate('about:blank');
FM_Material.DBG_Material.SetFocus;

Der obige Code existiert schon. Nur wenn ich nun die Form FM_Material dynamisch erstelle, weiß ich nicht wie ich diese ganzen Zugriffe anpassen kann. Ich kann ja nicht einfach aus FM_Material -> MeineForm machen etc.

[Sir Rufo]

Das funktioniert nicht nur mit globalen Variablen, aber es muss halt entsprechend programmiert sein, damit es ohne funktioniert.

Globale Variablen sind zwar ein sehr einfacher aber auch ein sehr anfälliger Weg. Darum wird dieser idR auch nicht beschritten - öh sollte :)

Vielleicht kannst du ja mal schildern, was du genau erreichen willst, dann kann man da schon eher etwas zu sagen, wie man die Dynamik ohne globale Falle realisiert

[Medium]

Zitat:

Zitat von HolgerCW (Beitrag 1184362)

Ich kann ja nicht einfach aus FM_Material -> MeineForm machen etc.

Warum?

[HolgerCW]

Hier nochmal was ich eigentlich will:

Ich habe eine TreeView-Baumstruktur.

Wenn der User nun auf node1 klickt soll die FormAB erstellt werden.
Klickt der User auf node2 soll die FormCD erstellt werden.
Ich möchte aber nicht in dem Ereignis des TreeViews fest einprogrammieren, welche Form erstellt werden soll, sondern hinterlege die Information in einer Datenbank.

Soll heißen. Der User klickt auf node1, es wird in der Datenbank nachgeschaut welche Form geöffnet werden soll. (Dort steht der Name der Form) und dementsprechend wird dann die Form erstellt.

Die Formen habe ich aber alle schon in Delphi designed.

Nun soll die Form mit Hilfe des Formnamens erstellt werden.

Nur sind auch die Programmierungen, welche auf die FormAB etc. zugreifen schon erstellt. Heisst es steht überall FormAB.Label1.Caption := 'Text'

Wenn ich die FormAB, aber wie in diesem Thema erstelle, kann ich nicht mehr mit FormAB.Label1.Caption die Form steuern.

Was muss ich abändern, damit es klappen kann ?

Gruss

Holger

[Bummi]

Als Schmuddelnötlösung könntest Du in den Construktoren Deiner Forms etwas in der Art einbauen.

Delphi-Quellcode:

Constructor TFormA.Create(AOwner:TComponent); // override
begin
  inherited;
  FormA := Self;
end;

[DeddyH]

Oder die benannten Instanzen eliminieren und Dir eine Methode schreiben, die je nach Formklasse die Einstellungen vornimmt.

[HolgerCW]

Schmuddelnötlösung funktioniert.

Jetzte würde ich gerne hier noch die Registrierung so hinbekommen, das ich dies nicht fest vorbelegen muss ? Geht das ? Hier der Code:

Code:

var
 Form_Name: String;
 MeineForm: TForm;
 MeineForm_Klasse: TComponentClass;
begin

...

Form_Name := 'FM_Material' //Beispiel

RegisterClass(TFM_Material); //Das hier würde ich gerne variabel gestalten
MeineForm_Klasse := TComponentClass(FindClass('T' + Form_Name));
MeineForm := TForm(FindComponent(Form_Name));
If MeineForm = nil then Application.CreateForm(MeineForm_Klasse, MeineForm);
MeineForm.Show;

Gruss

Holger

[Medium]

Edit: Unfug gelöscht, hab die Create-Situation nicht beachtet.

[HolgerCW]

Jemand noch eine Idee ?

[vagtler]

Zitat:

Zitat von HolgerCW (Beitrag 1184470)

[...] Nur sind auch die Programmierungen, welche auf die FormAB etc. zugreifen schon erstellt. Heisst es steht überall FormAB.Label1.Caption := 'Text' [...]

Und hier zeigt sich wieder einmal ganz besonders eindrucksvoll, was passiert, wenn man zuerst programmiert und dann nachdenkt.

Ein Haus wird auch erst geplant und dann gebaut...

[HolgerCW]

Das hilft mir jetz auch nicht weiter.

Es klappt schon, nur mit der Registrierung gefällt mir noch nicht. Wüsste auch nicht was ich ohne vorherige Programmierung da hätte besser machen können bei der Registrierung.

Weitere Ideen willkommen, zwecks der variablen Registrierung ...

[Bummi]

Du musst Deine Forms ja ohnehin alle von Hand erstellen, häng einfach unten einen
initilization Abschnitt dran mit der Registrierung, dann ist alles sauber verräumt.

[Sir Rufo]

Zitat:

Zitat von HolgerCW (Beitrag 1184558)

Das hilft mir jetz auch nicht weiter.

Es klappt schon, nur mit der Registrierung gefällt mir noch nicht. Wüsste auch nicht was ich ohne vorherige Programmierung da hätte besser machen können bei der Registrierung.

Weitere Ideen willkommen, zwecks der variablen Registrierung ...

Zeig doch mal den Source von FM_Material und alle weiteren Quellen, wo du auf FM_Material verweist

[HolgerCW]

Hallo Bummi,

das mit initilization war die Lösung. Vielen dank dafür.

Die Lösung gefällt mir und somit kann das Thema hier geschlossen werden.

Vielen dank an alle für die Hilfen.

MfG

Holger