Erstes Delphi Programm =)

[4nG3L]

Hey leute =),

Erstmal freu ich mich das es diese seite gibt da ich fast nur mit dieser seite delphi gelernt habe xD. (naja ich kann es noch nicht richtig aber naja..)
ich wollt euch nur mal mein erstes Programm zeigen.


Es heißt raten....BEEEP und es geht darum die richtigen buttons zu klicken da sonst ein tiefer beep ton kommt.
hier noch ein paar datein zum Spiel:
-Version 1.0.0.0
-kompatibel mit windows95/98/200/xP/Vista/7 (meiner erfahrung nach)
-Für das Spiel wird nur die Maus und Boxen/headset..halt irgendwas was sound wiedergeben kann


verbesserungs vorschlege sind wilkommen =)


mfg 4nG3L

aso halt eine frage hab ich noch....
ich hab versucht es so hinzukriegen das in einem label angezeigt wird wie viele fehler man schon gemacht hat und das das
spiel bei 10 fehlern geschlossen wird... könnt ihr mir da vllt noch helfen

thx im vorraus
mfg
4nG3L

[4nG3L]

also das ist jetzt egal xD ich habs jetzt erstmal wieder so gemacht das er das spiel dann schließt

[Blackheart]

Du könntest auch der Einfachheit halber einen Message Dialog benutzen.
Nur so als Beispiel.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  If MessageDlg('Du hast das Spiel verloren, möchtest du es neu Starten ?',
   mtConfirmation, [mbYes, mbNo], 0) = mrYes
   then
   ShowMessage('Spiel neu gestartet !')
   else
   Close;
end;

[Jens Hartmann]

Also nochmal,

eigendlich ganz einfach.

Delphi-Quellcode:

//Hier muss die Anweisung stehen, wenn Fehler = 10 then
//FVerloren, heißt bei mir jetzt so. Dort muss der Name deiner Form natürlich hin.
    if FVerloren.ShowModal = mrOK then 
      begin 
        Close; 
      end 
    else 
      begin 
//Spiel neu starten, bedeutet das du hier z.B. ButtonStarten.Click oder sowas schreiben musst.
        'Spiel Neu Starten' 
      end; 

end.

Diese Funktion, gehört in deine Hauptform. In der Form mit den 2 Button gibt es eigendlich gar kein Code, weil dieser durch mrOK und mrCancel erzeugt wird.

[EDIT] Das mit dem Message Dialog, hatte ich ja auch schon erwähnt, auch da bekommst du wieder die antworten hier z.B. mrYes usw.
du musst allerdings, hinter ShowMessage, deine start Funktion noch legen.

Gruß Jens

[edit=mkinzler]Delphi-Tag gefixt Mfg, mkinzler[/edit]

[4nG3L]

Also danke jens, für deine mühen aber das was blackheart gepostet hat wäre eigentlich perfekt =)

[Jens Hartmann]

Ist ja auch OK,

das mit der Form sollte dir nur die Möglichkeit zeigen, eine zweite Form mit anzubinden. Das mit dem Message Dialog, ist einfacher, und erfüllt natürlich voll und ganz den Zweck.

Ich habe z.B, mit der Form eine Passwort abfrage realisiert, womit ich die Möglichkeit habe, diese für viele Funktionen zu nutzen. Soll heißen, ich habe die nur einmal geschrieben, und rufe die jetzt einfach nur mehrfach auf.

Aber wenn es bei dir jetzt funktioniert, freut mich das. Trotzallem, kannst Du es ja irgendwann mal anders probieren, oder in einer anderen Situation nutzen.

Gruß Jens

[4nG3L]

ja ich werde es auf jeden fall nochmal ausprobieren also zum üben oder sowas damit ich das auch hinkriege =)

[lbccaleb]

Zitat aus meinem ersten Post:

Zitat von lbccaleb:

Sende doch deinen Quellcode mit

Wenn du das mal machen würdest, könnten

1. wir uns ein besseres Bild machen, wie du das alles versuchst das Anzustellen!
2. wir dir bei eventuell Auftretenden Fehlern helfen können/korrigieren können!

[4nG3L]

den gesamten quellcode? O.o

[lbccaleb]

Währe sicherlich vom Vorteil...

[DeddyH]

Aber nicht komplett posten, sondern an den Beitrag anhängen bitte.