Delphi-Quellcode:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
BitBtn1.Font.Color:= ClRED;
BitBtn1.Caption := '
FALSCH';
windows.Beep(200,200);
Inc(FZaehler);
label27.Caption := '
Fehler: ' + IntToStr(FZaehler);
//Das Lebel auch so bennen "lblFehler"
if FZaehler > 9
then
begin
MessageBox(
Handle,'
Du hast 10 Fehler gemacht, Damit hast du verloren.','
Verloren',MB_OK
or MB_ICONINFORMATION);
case FVerloren.ShowModal
of
mrOK:
begin
Close;
end;
mrCancel:
begin
'
Spiel Neu Starten'
end;
end;
end;
ich habs so versucht der sagt mir da das FVerloren kein gültiger bezeichner ist dann hab ich das noch ausprobiert
Delphi-Quellcode:
private
{ Private-Deklarationen }
FVerloren;
FZaehler: Integer;
aber mir war irgendwie klar das das schwachsinn ist^^