Kleines Problem mit Grundlagen // Minigame

[hans ditter]

du musst einfach abfragen, ob die Checkbox unter deiner Zahl angeklickt ist oder nicht. In etwa so:

Delphi-Quellcode:

if NOT(Checkbox1.Checked) then
  Panel1.Caption := random(6) + 1;
if NOT(Checkbox2.Checked) then
  Panel2.Caption := random(6) + 1;

Wenn du dann nur dreimal Würfeln erlauben willst, dann kannst du vorher noch eine if-Abfrage einbauen, die den Zustand einer Zählvariable prüft:

Delphi-Quellcode:

var WurfCount: Integer;

begin
  if WurfCount < 3 then
  begin
    //hier die Zufallszahlen
    Inc(WurfCount);
  end
  else
  begin
    WurfCount := 0;
    Break;
  end;
end;

Wenn dann schon dreimal gewürfelt wurde, wird die Prozedur/Funktion abgebrochen, sonst eben nicht.

LG; hans ditter