andwendung stoppen, nachricht anzeigen und danach erfolgreich schließen?

[Coxy]

ehrlich gesagt schaffe ich es nicht den Beispiel Code in deinem Link zu verstehen.
Hättest du vielleicht ein anderes Beispiel?

[-187-]

Was genau verstehst du daran nicht?

Wir hatten hier vor 2-3 Tagen schonmal einen Timer Thread indem alles 100 mal erklärt wurde, vielleicht benutzt du einfach mal die Suche

[alfold]

Konzeptionell ist es eh schlecht.
Wenn ich gewonnen habe kann es ja sein, das ich noch mal spielen will.
Warum also gewaltsam das Programm beenden.
Lass es den User entscheiden ob er noch mal spielen will oder ob er das Programm beenden will.

Application.Terminate ist eh keine gute Lösung close reicht da vollkommen aus.

Gruss alfold

[-187-]

Ja ich halte das auch nicht für sinnvoll aber wer weiss schon worum es genau geht.

Also zurück zur Frage, hier ein Lösungsansatz:

Delphi-Quellcode:

if Punkte > 100 then begin
  Timer1.Interval:=10000;
  Timer1.enabled:=True;
  showmessage('Sie haben gewonnen');
  end

Im OnTimer Ereignis von Timer1 könnte dann Form1.Close; stehen ...

[Coffeecoder]

Hallo,

Ist nicht ein Ansatz so, dass es in der OnTimer-Methode nicht sofort die Form.close ausführt.
Das hieße doch, dass er bei 1. Sekunde das Form schliesst.

Mein Vorschlag in der TForm1.CanClose-Methode:

Delphi-Quellcode:

if Punkte > 100 then 
begin
    showmessage('Sie haben gewonnen!');
    CanClose := true;
end;

Man musste nur an der entsprechende Stelle die Form1.CanClose-Methode aufrufen.

Mfg Coffeecoder

[DeddyH]

Und wenn man keine 100 Punkte erreicht hat, kann man das Programm nicht schließen?

[edit] Anderer Vorschlag:

Delphi-Quellcode:

if (Punkte > 100) and (Application.MessageBox('Sie haben gewonnen. Ein neues Spiel starten?', 'Glückwunsch', MB_YESNO) = idNo) then
  Close;

[/edit]

[Coffeecoder]

Das ist in meinem Code der Fall.

Hinzufügen, musste man noch eine Abfrage zb mit einem MessageDlg wenn man früher das Programm beenden mag.