Erstes Delphi Programm =)

[Jens Hartmann]

Hallo erstmal,

du musste eine eigene Funktion schreiben. So wie Deddy es geschrieben hat.

Delphi-Quellcode:

procedure TMainForm.TuWas; 
begin 
  if Button.Click = Falsch then    //ntürlich deine echte Abfrage
    begin 
      inc(FZaehler); 
      LabelFehler.Caption := IntToStr(FZaehler); //diese Zeile sorgt für die Anzeige 
      if FZaehler > 9 then 
        begin 
          MessageBox(Handle,'Du hast 10 Fehler gemacht, das Spiel wird beendet.','Information',MB_OK or MB_ICONINFORMATION); 
          Close; 
        end; 
    end; 
end;

Wenn du diese Procedure geschrieben hast, betätige mal Shift/Strg/C Gleichzeitig, und die Procedure wird automatisch im Implementationsteil von deinem Programm bekannt gemacht.
Anschließend, musst du diese Funktion von deinem Button.Click aufrufen. In etwa so...

Delphi-Quellcode:

procedure TForm1.Button.Click(Sender: TObject);
begin

Falsch oder Richtig;

TuWas
...
usw. //Button Färbung etc...
end;

Gruß Jens

[4nG3L]

Delphi-Quellcode:

unit uMain;

wie kann ich die unit änder? :( ich bin irgwie voll am verzweifeln obwohl das bestimmt rihtig easy ist xD
meine units heißen immer unit1 oder so

[Jens Hartmann]

Das mit uMain ist nur ein Beispiel. Das ist natürlich dein Unit.

Gruß Jens

[DeddyH]

Die Unit muss nur so heißen wie die Datei ohne Endung. Das kannst Du festlegen, indem Du sie unter dem gewünschten Namen abspeicherst, den Rest macht Delphi automatisch für Dich.

[mkinzler]

Du kannst das beim Speichern angeben

[4nG3L]

ah okay danke leutz =) ich hab jetzt noch nen bissl rumgebastelt und siehe da es klappt xD ich hab was übersehen...^^
ich hab vergessen das label zu ändern xDD

[4nG3L]

so ich hab jetzt alles soweit außer der sache das ich oben ja ein menü habe wo man unter Spiele\Neustarten klicken kann damit das spiel neustartet.... ich hab alles soweit gemacht also so das es genau so aussieht wie vorher es gibt blos ein problem. ich weiß nich wie ich meinen zähler jetzt resetten soll. kann mir da vllt nochmal jmd helfen? =)


thx im voraus =)

[Blackheart]

Delphi-Quellcode:

FZaehler:=0;

:wink:

[4nG3L]

Klappt Perfekt.. Danke =)

(ich edetiere das hier gleich und dann häng ich mein game noch an muss noch was ändern =))

[Ruio]

Hilfe, bei mir ist ein Button verschwunden :wiejetzt:
Ich konnte übrigens allfe Felder anklicken, obwohl ich bereits verloren hatte :gruebel:

Man kanns ja im Anhang sehen.