aso okay aber jetzt habe ich direkt das nächste problem:
Delphi-Quellcode:
procedure TForm1.BitBtn4Click(Sender: TObject);
begin
randomize;
if x = 4 then
begin
BitBtn6.Visible := true;
BitBtn7.Visible := true;
BitBtn8.Visible := true;
BitBtn9.Visible := true;
BitBtn10.Visible := true;
Bitbtn4.Font.Color := CLLime;
bitbtn4.Caption := 'RICHTIG';
x := random(4)+1;
end
else
BitBtn4.Font.Color:= ClRED;
BitBtn4.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;
end;
so sehn in etwer alle ersten 5 buttons aus (bis auf kleinigkeiten). wenn ich jetzt im spiel test den richtigen kriege wird die nächste reihe sichtbar aber auf dem button steht dann in grüner schrift FALSCH obwohl ich ja
Delphi-Quellcode:
Bitbtn4.Font.Color := CLLime;
bitbtn4.Caption := 'RICHTIG';
das da hingeschrieben habe..meiner meinung nach sollte auf dem richtigen button nun in grüner schrift RICHTIG stehen und nicht FALSCH..