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