Ich arbeite an einem Programm, welches dem User eine Frage stellt und dann 4 Antwortmöglichkeiten bietet.
Dabei habe ich vor, viele verschiedene Frage zu stellen, aber dabei muss ich viele Buttons verwenden und die Fragen kommen in einer festgelegte Reihenfolge (siehe Quelltext).
Gibt es einen Möglichkeit,
weniger Buttons zu verwenden, weil wenn z.B. ich 50 Fragen stelle, muss ich auch etwa 50 Buttons verwenden.
Ich will aber, dass die Fragen
zufällig auftretten und die beantworteten Fragen sollen nicht wieder erscheinen.
Außerdem sollten Fragen in einer
bestimmten Zeit beantwortet werden, wenn nicht, dann gilt das als falsch und die nächste Frage soll kommen.
Ich weiß aber leider nicht, wie ich das hinbekomme.
Ich würde mich freuen, wenn ihr mir so
schnell wie möglich helfen könntet.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject); // Programm startet
begin
panel1.Caption:='Wo liegt Deutschland?'; // Erste Frage
Radiobutton1.Caption:='Asien';
Radiobutton2.Caption:='Europa';
Radiobutton3.Caption:='Afrika';
Radiobutton4.Caption:='Nordamerika';
button2.Visible:=false;
button3.Visible:=false;
end;
procedure TForm1.Button1Click(Sender: TObject); //Nutzung 1. Button
begin
if Radiobutton2.Checked = true then showmessage('richtig')
else showmessage('falsch');
panel1.Caption:='Wo liegt Kongo?'; // 2. Frage
Radiobutton1.Caption:='Australia';
Radiobutton2.Caption:='Europa';
Radiobutton3.Caption:='Afrika';
Radiobutton4.Caption:='Nordamerika';
button2.Visible:=true;
end;
procedure TForm1.Button2Click(Sender: TObject); // Nutzung 2. Button
begin
if Radiobutton3.Checked = true then showmessage('richtig')
else showmessage('falsch');
panel1.Caption:='Wo liegt Rom ?'; // 3. Frage
Radiobutton1.Caption:='Italien';
Radiobutton2.Caption:='Spanien';
Radiobutton3.Caption:='Mexiko';
Radiobutton4.Caption:='Russland';
button3.Visible:=true;
end;
procedure TForm1.Button3Click(Sender: TObject); // Nutzung 3. Button
begin
if Radiobutton1.Checked = true then showmessage('richtig')
else showmessage('falsch');
end;
end.