also ich habs jetzt so versucht
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);
if FZaehler > 9 then
begin
If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes
then
Neustarten1.Click
else
Close;
end;
if x = 1 then
BitBtn6.Visible := true;
BitBtn7.Visible := true;
BitBtn8.Visible := true;
BitBtn9.Visible := true;
BitBtn10.Visible := true;
x := random(4)+1
else
windows.beep(200,400);
end;
so maht der aber nichts random wenn ich jetzt auf den ersten button klicke dann nimmt er gleich den