Thema: Delphi Wer wird Millionär

Einzelnen Beitrag anzeigen

Dilip

Registriert seit: 3. Mär 2016
10 Beiträge
 
#1

Wer wird Millionär

  Alt 9. Mär 2016, 17:26
Hey, ich habe vor mit Delphi Wer wird Millionär zu programmieren. Komme aber nicht weiter..

Und zwar hab ich die oberfläche so gestaltet, dass die Frage in ein Label geschrieben werden soll und die Antworten auf den 4 Buttons erscheinen. Auf einem anderen Label wird der momentane Geldbetrag gezeigt. Mit einem BitBtn startet das ganze.
Wenn ich auf den BitBtn klicke, kommt die erste Frage, mit Antwortmöglichkeiten, Geldbetrag 0€

Aber wie schaffe ich es jetzt, wenn ich den Button mit der richtigen Antwort anklicke, das die nächste Frage gestellt wird.
Und wenn ein anderer Button angeklickt wird, mit einer falschen antwort, dass kein geld gewonnen wurde ( oder eben 500€ )

Mein anfang sieht also so aus: ( Beispielfrage )

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Label1.Caption := 'Was ist 2 + 2?';
Button1.Caption := '4';
Button2.Caption := '1';
Button3.Caption := '5';
Button4.Caption := '3';


Ich habe es mit
if Button1.Click then
Label1.Caption := 'Welches chemische Element hat Chlor?'
Button1.Caption := ...
...
..

Aber ich bekomme die Fehlermeldung in der Zeile if Button1.Click then - es muss angeblich Datentyp boolean sein..
Könnte mir jemanden bei einem Ansatz behilflich sein?
Und ich möchte die Frage erstmal mit im Programm haben, nicht einlesen lassen ( auch wenn das wahrscheinlich einfacher ist)
  Mit Zitat antworten Zitat