Wer wird Millionär

[Dilip]

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)

[Mikkey]

Zu Button(x).Click musst Du eine Ereignisbehandlungsprozedur zuweisen. Die wird dann aufgerufen, wenn der Button gedrückt wird.

In der Prozedur kannst Du dann Deinen Code unterbringen.

Es wäre in der Tat einfacher, Dir zumindest eine Liste mit Fragen und Antwortmöglichkeiten zu machen, in der Du jeweils "weiterschalten" kannst.

[Dilip]

und was muss ich da dann eingeben

[bcvs]

Doppelklick auf den Button. Dann wird die die Ereignisprocedure angelegt. Da kannst du dann reinschreiben, was bei einem Klick auf den Button passieren soll, z.B,. das was du zuerst bei deinem if Button1.Click then probiert hast.

[Headbucket]

Die Antworten von Mikkey und bcvs werden aber langfristig nicht zum Ziel führen. Außer du möchtest nur 4 Fragen stellen und legst die Antworten stets auf unterschiedliche Buttons

Du solltest dir also erstmal ein Konzept erstellen. Natürlich brauchst du auch die Ereignisproecedure(n) der Buttons, jedoch darst du dort natürlich nicht die nächste Frage stellen, sondern lediglich bemerkbar machen, dass dieser Button gedrückt wurde. In einer anderen Procedure muss dann entschieden werden, ob der gedrückte Button zu der aktuellen Frage die richtige Antwort enthält.

Überlege dir also erstmal, wie du einen "Katalog" mit Fragen und Antworten erstellen kannst.
Dann überlegst du dir eine Routine, wie du die Frage und die dazugehörigen Antworten auf die Buttons bekommst.
Zuletzt schreibst du z.B. eine Routine, die aufgerufen wird, wenn einer der Buttons gedrückt wird. Hier kannst du z.B. über die "Tag" Eigenschaft herausfinden, welcher Button gedrückt wurde.
Nun muss noch entschieden werden, ob die richtige Antwort gedrückt wurde.

So könnte man das relativ einfach und überschaubar aufziehen. Natürlich gibt es immer noch elegantere Lösungen.

Grüße

[Dilip]

An die Tag Variante hab ich auch schon gedacht
Das ist doch case ... of , oder?

Aber ich weiß nicht was ich dazwischen schreiben soll
muss ich da Button1.Click Button1 TButton1... hinschreiben? oder eine neue Variable definieren?

ich hab es mal kurz versucht und habe einfach ein Formular 1 Button und 1 Edit


procedure TForm1.Button1Click(Sender: TObject);

begin
case TButton(Sender).Tag of
1: Edit1.Text := 'Falsch';
2: Edit1.Text := 'Falsch' ;
3: Edit1.Text := 'Richtig';
end;
end;

Normalerweise müsste doch mit 1x drücken falsch, beim 2x auch falsch und beim 3x mal richtig in der Edit komponente stehen, das Programm startet auch ohne Fehlermeldung, schreibt aber nichts in die Edit