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

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

[DeddyH]

Siehe mein Edit (dort ist es allerdings andersherum)

[Coffeecoder]

Jo. Sieht gut aus
Bleibt abzuwarten was Coxy dazu sagt