Code:
if ( Sender = player1CB3Pasch ) then
if wurdeGewuerfelt = false then begin
( Sender as TCheckBox ).Enabled := true;
( Sender as TCheckBox ).Checked := false;
end
else begin
if dreierPasch = true then begin
wert1Label3Pasch.Caption := IntToStr( alleWuerfelErgebnis );
ergebnisUnten1();
( Sender as TCheckBox ).Enabled := false;
wuerfelReset();
if niSpielerAnz = 2 then begin
spielerWechsel( Sender as TObject );
wuerfelReset();
end;
end;
end
else if dreierPasch = false then
begin
MessageBox(0, 'Es ist kein Dreier Pasch vorhanden. Bitte wählen Sie etwas anderes!', 'Hinweis', MB_OK);
( Sender as TCheckBox ).Checked := false;
end;
So sollte es nur einmal passieren.