tachchen...
ich bin nun soweit fertig mit mein Quiz
Nun möchte ich 3 Joker einfügen: 50:50, Nachschlagen und Publikumsjoker...!
Den Nachschlage Joker hab ich wiefolgt gelöst:
Delphi-Quellcode:
procedure TForm1.Button3Click(Sender: TObject);
begin
// Nachschlagen Joker
ShellExecute(
Handle,'
open','
http://de.wikipedia.org/wiki/Wikipedia:Hauptseite',
nil,
nil,SW_SHOW);
Button3.enabled := false;
end;
Im 50:50 Joker wird bis jez nur eine Frage gestrichen...! Aber möchte 2 Löschen, wie realisiere ich dies?
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);// 50 : 50 Joker
begin
// Einen falschen Eintrag ermitteln
repeat
Falsch1 := Random(3);
until Falsch1 <> quizrichtig(n,6);
// Falsche Antwort deaktivieren
RadioGroup1.Buttons[Falsch1].Enabled := False;
end;
Und dann noch einen Lösungsvorschlag für den Publikumsjoker, bitte!
danke