Ich hab auf einer Form zwei Groupboxen, bei der einen 3 und bei der anderen 5 Checkboxen drauf. Dazu kommt eine Combobox wo ich zwei Spielmodi aussuchen kann. Die Form startet vor dem eigentlichen Spiel. Der Spieler sucht sich die Musik, den Schwierigkeitsgrad und den Spielmodi aus. Meine Frage: Ich wollte eine if then else abfrage machen. Wenn der Spieler auf den Starten Button drückt, muss er jeweils immer eine Checkbox in beiden Groupboxen angeklickt haben, einen Spielmodi bei der Checkbox gewählt haben, er muss drei Einstellungen gewählt haben, dann startet das Spiel, sonst soll es noch mal Showmessage zeigen. Wie kann ich das schreiben ?
Das Problem steht nach der WICHTIG!!!!!!!!!!!!!!!!!!.
Delphi-Quellcode:
{=============================================================================================================================}
procedure TForm15.Button1.Click;
begin
begin
if Checkbox1.Checked then Showmessage ('Sie haben Leicht gewählt');
if Checkbox2.Checked then Showmessage ('Sie haben Mittel gewählt');
if Checkbox3.Checked then Showmessage ('Sie haben Schwer gewählt');
if Checkbox4.Checked then Showmessage ('Sie haben Music1 gewählt');
if Checkbox5.Checked then Showmessage ('Sie haben Music2 gewählt');
if Checkbox6.Checked then Showmessage ('Sie haben Music3 gewählt');
if Checkbox7.Checked then Showmessage ('Sie haben Music4 gewählt');
if Checkbox8.Checked then Showmessage ('Sie haben Music5 gewählt');
if ComboBox1.ItemIndex = 0 then Showmessage ('Sie haben Klassik gewählt');
if ComboBox1.ItemIndex = 1 then Showmessage ('Sie haben Spezial gewählt');
end;
WICHTIG!!!!!!!!!!!
if // hier brauch ich Hilfe --> wenn eine Checkbox geklickt bei Groupbox 1 und 2 sowie einen Spielmodi bei Combobox gewählt dann
then
begin
if MessageDlg('Wirklich Beenden ?', mtInformation,[mbYes,mbNo],0)=6; // Frage gestellt bevor Start
then Form15.Close
end;
else // wenn es nicht erfüllt ist
begin
Showmessage('Bitte wähle einen Spielmodus, einen Schwierigkeitsgrad und eine Musik');
// keine drei Einstellungen gewählt deswegen Showmessage
end;
end;
{=============================================================================================================================}
end.