Neustart

[larsder4]

Hey Leute,

ich hab mal ne kleine dumme Frage, die Antwort wurde hier sicher schon 100 Mal geschrieben, aber ich weiß nicht, wonach ich suchen soll...

Wie kann ich mein Programm neustarten, also an den Anfang zurücksetzen, sozusagen FormCreate noch einmal ausführen...

Ihr wisst schon was ich meine :wink:

Danke im Vorraus
Lars

[mkinzler]

Einfach

Delphi-Quellcode:

Form.Free;
Form := <Form-Klasse).Create;

[toms]

Zitat:

Zitat von mkinzler

Einfach

Delphi-Quellcode:

Form.Free;
Form := <Form-Klasse).Create;

Dies funktioniert jedoch nur mit Unterforms. Bei der Hauptform jedoch nicht.

[larsder4]

Es soll aber im Hauptform sein.
Ich kam mit dem Vorschlag auch nicht so recht weiter...

Mein Quelltext sieht ungefähr so aus:

Delphi-Quellcode:

if MessageDlg('Noch einmal?', mtWarning, [mbYes, mbNo], 0) = mryes then
begin
//Neustart
end
else
Form1.Close;

[Fussball-Robby]

Wilst du die ganze Anwendung neustarten? Das ginge so:

Delphi-Quellcode:

procedure Neustart;
begin
  PostMessage(Application.Handle, WM_CLOSE, 0, 0);
  ShellExecute(0, 'open', PChar(ParamStr(0)), nil, nil, SW_SHOW);
end;

Mfg

[mkinzler]

Man könnte auch nur .Create() noch einmal aufrufen, dann wird es nicht als Konstruktor, sondern als Klassenmethode angewendet

[tomsel]

Warum willst du denn unbedingt FormCreate noch mal ausführen? Du könntest doch einfach eine Methode schreiben, die bei Klick auch "Nochmal" alles "auf Anfang" setzt, ohne Neustart. Diese würde ich dann zusätzlich auch aus FormCreate aufrufen.

[larsder4]

Das war nur mein erster Gedanke mit dem FormCreate.

Wie sollte das denn ungefähr aussehen?


Bei dem Vorschlag von mkinzler

Delphi-Quellcode:

Form1.Create(); //wenn er das so meinte

kommt die Meldung: Nicht genügend wirkliche Parameter.
Allerdings weiß ich nicht so recht, was in die Klammern muss (Sender: TObject) geht ja nicht.

[mkinzler]

Delphi-Quellcode:

Form1.Create( Form1.Owner);

[Fussball-Robby]

Frage: Was willst du damit überhaupt erreichen? Es gibt bestimmt einen besseren Weg, als das Create nochmal aufzurufen.

[mkinzler]

Zitat:

Es gibt bestimmt einen besseren Weg, als das Create nochmal aufzurufen.

Warum, ein solcher Aufruf als Klassenmethode lädt die dfm neu

[larsder4]

Es soll ein Quiz werden, wenn man eine bestimmte Anzahl von Fragen beantwortet hat, soll man halt noch einmal von vorne anfangen können, dafür müssen ja sowohl alle Punktstände auf 0 gesetzt werden, als auch die Fragen wieder neu ausgewählt werden, da hielt ich es für einfacher, das ganze Programm noch einmal von vorne starten zu lassen.

[toms]

Zitat:

Zitat von larsder4

Es soll ein Quiz werden, wenn man eine bestimmte Anzahl von Fragen beantwortet hat, soll man halt noch einmal von vorne anfangen können, dafür müssen ja sowohl alle Punktstände auf 0 gesetzt werden, als auch die Fragen wieder neu ausgewählt werden, da hielt ich es für einfacher, das ganze Programm noch einmal von vorne starten zu lassen.

In diesem Fall geht das sich auch ohne einen Neustart des Programms.
Im OnCreate() oder zu einem späteren Zeitpunkt initialisiert du Variablen, die Fragen etc.
Diese müssen nur wieder neu initialisiert werden.

[larsder4]

Aber was ist denn gegen einen Neustart einzuwenden? Ich müsste sonst auch wieder die Arrays neu belegen, Schleifen müssten wieder von vorne anfangen usw... da ist ein Neustart einfach weniger aufwendig

Delphi-Quellcode:

Form1.Create(Form1.Owner);

funktioniert übrigens nicht, da eine Exception auftritt: Komponente mit der Bezeichnung Form1 existiert bereits.

[tomsel]

Zitat:

Aber was ist denn gegen einen Neustart einzuwenden? Ich müsste sonst auch wieder die Arrays neu belegen, Schleifen müssten wieder von vorne anfangen usw... da ist ein Neustart einfach weniger aufwendig

tatsächlich? :gruebel:

Wenn du alles ein mal initialisierst, kannst du das doch auch 2, 3, 4 .... 1000000 mal. Packe den dazu notwendigen Code in eine eigene Methode und rufe diese aus FormCreate und bei "Nochmal" auf. Hab ich schon versucht, dir nahe zu legen.

[larsder4]

Aah :dancer: jetzt verstehe ich auch, was du meintest.
Hatte die Idee schon mal, dann doch aber wieder verworfen.

Klappt aber so :thumb:

Danke