Kleines Spiel in Delphi

[Blackheart]

Oder noch ne andere Variante

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure SpieleLied; //hier ohne TForm1
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.SpieleLied; //Sparst Du Dir ein paar Zeilen unter private einfügen
begin
  Mediaplayer1.filename:='misc1-22.wav';
  MediaPlayer1.open;
  MediaPlayer1.play;
end;

procedure TForm1.Haselnuss1Click(Sender: TObject);
begin
  inc(i); // i um 1 erhöhen
  SpieleLied;
  if i=7 then Form1.Close;
end; 


procedure TForm1.Haselnuss7Click(Sender: TObject);
begin 
  inc(i);
  SpieleLied;
  if i=7 then Form1.Close;
end; 

procedure TForm1.Haselnuss4Click(Sender: TObject); 
begin
  inc(i);
  SpieleLied;
  if i=7 then Form1.Close;
end;

procedure TForm1.Haselnuss6Click(Sender: TObject);
begin 
  inc(i);
  SpieleLied;
  if i=7 then Form1.Close;
end;

procedure TForm1.Haselnuss3Click(Sender: TObject);
begin 
  inc(i);
  SpieleLied;
  if i=7 then Form1.Close;
end;

procedure TForm1.Haselnuss2Click(Sender: TObject); 
begin
  inc(i);
  SpieleLied;
  if i=7 then Form1.Close;
end;

procedure TForm1.Haselnuss5Click(Sender: TObject);
begin
  inc(i);
  SpieleLied;
  if i=7 then Form1.Close;
end;

end.