Formular neu createn?

[a.def]

Wieso dann mit Kanonen auf Spatzen schießen?

Speichere doch einfach die Originalposition des Objekts und setze es im FormShow des Formulars #2 an die Originalposition zurück.

[EWeiss]

Zitat von a.def:

Wieso dann mit Kanonen auf Spatzen schießen?

Speichere doch einfach die Originalposition des Objekts und setze es im FormShow des Formulars #2 an die Originalposition zurück.

Wenn es für ihn so einfach wäre würde er nicht fragen.
Bitte tue hier nicht so überheblich, nicht vergessen du hast auch mal angefangen.
Dein Ton wird immer rauer habe ich den Eindruck.

gruss

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

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