da ich bis jetzt noch keine antwort habe und das uebermorgen abgeben muss
5 buttons
- 1x frage (per caption)
- 4x antwort (per caption)
und die richtige antwort wird als ein integer gesetzt und in den einzelnen buttons nachgefragt...
so nach dem motto
das jetzt der code für die erste Antwort..
Delphi-Quelltext
1: 2: 3: 4: 5: 6: 7: 8: 9:
| if richtant = 1 then begin inc(shot); schultz.Enabled:=true; end else begin schultz.Enabled:=true; end; |
natürlich muss dann in dem Teil wo die frage und die Antworten gesetzt werden auch richtant auf den entsprechenden wert gesetzt werden...