Formular neu createn?

[Darlo]

Ja, klar geht das. Ungefähr so:

Delphi-Quellcode:

var
myform2: TForm2;
begin
form2.close;
form2.free;
myform2 := TForm2.Create(self);
myform2.show;
end;

[hoika]

Hallo,

1. Es geht nicht um MDI?

2.

Zitat:

Ich suche jetzt nach einer Möglichkeit, eine Form zu schließen, um sie bei erneutem Öffnen so vorzufinden, wie ich sie createt habe also wie sie nach dem Kompilieren aussah.

eine Form zu schließen
(Form2) OnButton1Click
Self.Close;

erneut öffnen
Form2 := TForm2.Create;
Form2.ShowModal;

wie ich sie createt habe
das sollte genauso sein


Es sei denn:
Du erzeugst Form2 gar nicht bei jedem (Form1)-Button-Klick,
sondern zeigst sie nur mit Form2.Show an.
Dann musst du dir die Positionen im FormCreate merken und im OnShow wiederherstellen


Ansonsten:
Ein bisschen mehr Code wäre schön,
am besten das ganze (Minimal-)Projekt als Zip.

[a.def]

Zitat:

Dein Ton wird immer rauer habe ich den Eindruck.

[t.roller]

Das geht so:

Delphi-Quellcode:

program Project1;

uses
  Vcl.Forms,
  Unit1 in 'Unit1.pas' {Form1},
  Unit2 in 'Unit2.pas' {Form2};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm1, Form1);
//  Application.CreateForm(TForm2, Form2);
  Application.Run;
end.
----------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
Application.CreateForm(TForm2, Form2);
Form2.Show;
end;
----------------------
procedure TForm2.Button1Click(Sender: TObject);
begin
Close;
Self.Free;
end;
----------------------

[Olli73]

In den Beiträgen #8 und #10 sehe ich ein Speicherleck.

Close gibt standardmäßig das Formular nicht frei, sondern versteckt es nur => Entweder im OnClose des Formulars ein Action := caFree; einbauen oder das Formualar mit .Free (oder .Release ) freigeben.

[Darlo]

Zitat von t.roller:

Das geht so:

Da fehlt das ungefähr 😉
Nach dem Schließen des form sollte dieses freigegeben werden und vor dem Erzeugen besser noch Prüfen ob bereits vorhanden.

[t.roller]

Zitat von Darlo:

Zitat von t.roller:

Das geht so:

Da fehlt das ungefähr 😉
Nach dem Schließen des form sollte dieses freigegeben werden und vor dem Erzeugen besser noch Prüfen ob bereits vorhanden.

zu 1: Self.Free; angefügt nach Close;
zu 2: doppelt gemoppelt:
procedure TApplication.CreateForm(InstanceClass: TComponentClass; var Reference); prüft das selbst.

[Jasocul]

Also, wenn ich Anfänger wäre, wäre ich möglicherweise verwirrter, als vorher.

Einige Dinge sind hier richtig aufgeschrieben worden, aber ich denke, die Zusammenhänge sind evtl. schwer verständlich.

Wenn du die Form schließt (Form2.Close) ist sie nur unsichtbar. Du bist nicht der Erste, den das irritiert.
Ein Form2.Show zeigt sie dann wieder an, wie sie zuletzt verlassen wurde. das ist genau das, was dir passiert ist.

Natürlich gilt das nur, wenn innerhalb der Form nicht irgendwelche Aktionen beim OnShow (oder anderen Ereignissen) durchgeführt werden.
Der Hinweis, dass im OnClose die Anweisung Action := caFree; gemacht werden kann, stimmt natürlich. Man sollte sich dann aber sicher sein, dass das wirklich so gewollt ist. Der nächste Aufruf Form2.Show geht sonst nämlich mit einer Zugriffsverletzung in die Hose.

Als Anfänger hast du sicher alle Forms zum Programmstart erzeugt (ist die Standard-Vorgabe).
Das heißt die Form2-Variable ist schon mit Inhalt gefüllt. Das solltest du ändern, damit du im Source einheitlich vorgehen kannst.
In den Projekt-Optionen (dort der Bereich Formulare) kannst du festlegen, welche Formen schon bei Programmstart erzeugt werden.
Es gibt auch andere Möglichkeiten, aber das lasse ich jetzt mal weg, um nicht noch mehr Verwirrung zu stiften (Auch wenn es schon einen Beitrag gibt, wo das gezeigt wird. Allerdings ohne Erläuterung).

Wenn du die Form2 mit ShowModal aufrufst, ist es relativ einfach. Da die Form2 dann den Focus nicht an Form1 zurückgibt, bis Form2 geschlossen wird, kannst du direkt danach ein Form2.Free machen.

Delphi-Quellcode:

Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Form2.Free;

Solltest du die Form2 mit einem Show aufrufen, solltest du der Empfehlung mit dem Action := caFree; nachkommen.

In dem von dir erwähnten Button der Form1 machst du ein Form2.Show . Das änderst du nun wie folgt:

Delphi-Quellcode:

Application.CreateForm(TForm2, Form2);
Form2.Show;

Da du im OnClose der Form2 ein Action := caFree eingebaut hast, sollte dann alles wie gewünscht funktionieren.
Diese Vorgehensweise würde übrigens auch mit ShowModal funktionieren.

An ein paar Kommentatoren:

• Es ist mir neu, dass Application.CreateForm prüft, ob die Form schon existiert.
• Eine Prüfung, ob die Form schon existiert ist nicht trivial (für einen Anfänger). Ja, ich weiß, wie es geht, will aber die Verwirrung in Grenzen halten.
• Kotzt doch bitte für einen Anfänger nicht einfach Source hin, ohne ihn zu erläutern.

[hoika]

Hallo,
warum wird hier immer Form.Show benutzt *wunder ?

An den Thread-Ersteller:
Ist Form2 modal, d.h. erst wenn Form2 geschlossen wird, kann mit Form1 weitergearbeitet werden?

[Maurooon]

Zitat von hoika:

Hallo,
warum wird hier immer Form.Show benutzt *wunder ?

An den Thread-Ersteller:
Ist Form2 modal, d.h. erst wenn Form2 geschlossen wird, kann mit Form1 weitergearbeitet werden?

Ehm also wie gesagt wenn ich zurück zum Hauptmenü gehe mache ich nur

Code:

Form2.hide;

und wenn ich wieder spielen will

Code:

Form1.hide;

und

Code:

Form2.show;

was jetzt modal bedeutet weiß ich leider nicht