AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Groupboxen, Comboboxen

Ein Thema von Swagger Jackin · begonnen am 27. Feb 2010 · letzter Beitrag vom 28. Feb 2010
 
Swagger Jackin
(Gast)

n/a Beiträge
 
#1

Groupboxen, Comboboxen

  Alt 27. Feb 2010, 16:53
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.
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:38 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz