Warnen vor dem schließen

[DeddyH]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    ...
  private
    FTreffer: Boolean;
  ...
  end;

...

//im ButtonClick:
if r < z then 
  Label2.Caption := 'Zu niedrig'
else if r > z then 
  Label2.Caption := 'Zu hoch'
else
  begin
    Label2.Caption := 'Erraten';
    FTreffer := true;
  end;
...

procedure TForm1.CloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := FTreffer or (MessageBox(0, 'Spiel wirklich abbrechen?', 'Bestätigen', MB_YESNO or MB_ICONQUESTION) = idYes);
end;

Ohne Gewähr, da aus dem Kopf getippt.