Forum: Software-Projekte der Mitglieder
by DeddyH,
13. Apr 2009
Das sieht OK aus, aber im vorherigen Code fällt mir auf, dass da wohl begin und end fehlen.if x = 1 then
begin //das fehlte
BitBtn6.Visible := true;
BitBtn7.Visible := true;
BitBtn8.Visible := true;
BitBtn9.Visible := true;
BitBtn10.Visible := true;
x := random(4)+1;
end //das auch
else
Forum: Software-Projekte der Mitglieder
by DeddyH,
13. Apr 2009
Aber nicht komplett posten, sondern an den Beitrag anhängen bitte.
Forum: Software-Projekte der Mitglieder
by DeddyH,
12. Apr 2009
Das TuWas war ja auch nur ein Beispiel, das musst Du natürlich an Deinen Code anpassen.
Forum: Software-Projekte der Mitglieder
by DeddyH,
12. Apr 2009
Stimmt, habe ich auch gerade ausprobiert.
Forum: Software-Projekte der Mitglieder
by DeddyH,
12. Apr 2009
Auch die Schriftfarbe ändert sich nicht?
Forum: Software-Projekte der Mitglieder
by DeddyH,
12. Apr 2009
Hallo, ich habe mir das Programm jetzt nicht angesehen, aber zu Deiner Frage: definiere Dir einfach ein privates Feld des Formulars für den Zähler. Bei jedem Fehler zählst Du den hoch und schaust, auf welchem Wert er steht. Sind 10 Fehler erreicht, reagierst Du entsprechend. Ein Beispiel aus dem Kopf:type
TMainForm = class(TForm)
...
private
FZaehler: integer;
...
end;
...