Kleines Spiel in Delphi

[EDatabaseError]

Zitat von Blackheart:

Oder noch ne andere Variante

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure Spiel(Sender: TObject); //hier ohne TForm1
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Spiel(Sender: TObject); //Sparst Du Dir ein paar Zeilen unter private einfügen
begin
  inc(i);

  Mediaplayer1.filename:='misc1-22.wav';
  MediaPlayer1.open;
  MediaPlayer1.play;

  (sender as timage).Visible := false;

  if i=7 then Form1.Close;
end;

procedure TForm1.Haselnuss1Click(Sender: TObject);
begin
  Spiel(sender);
end; 


procedure TForm1.Haselnuss7Click(Sender: TObject);
begin 
  Spiel(sender);
end; 

procedure TForm1.Haselnuss4Click(Sender: TObject); 
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss6Click(Sender: TObject);
begin 
  Spiel(sender);
end;

procedure TForm1.Haselnuss3Click(Sender: TObject);
begin 
  Spiel(sender);
end;

procedure TForm1.Haselnuss2Click(Sender: TObject); 
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss5Click(Sender: TObject);
begin
  Spiel(sender);
end;

end.

du vergisst das hide (sender as timage).Visible := false;
--> edit so kann man noch mehr sparen

Delphi-Quellcode:

private
    { Private-Deklarationen }
    procedure Spiel(Sender: TObject); //hier ohne TForm1
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  i:Integer;
implementation

{$R *.dfm}

procedure TForm1.Spiel(Sender: TObject); //Sparst Du Dir ein paar Zeilen unter private einfügen
begin
  inc(i);

  Mediaplayer1.filename:='misc1-22.wav';
  MediaPlayer1.open;
  MediaPlayer1.play;

  (sender as timage).Visible := false;

  if i=7 then Form1.Close;
end;

procedure TForm1.Haselnuss1Click(Sender: TObject);
begin
  Spiel(sender);
end; 


procedure TForm1.Haselnuss7Click(Sender: TObject);
begin 
  Spiel(sender);
end; 

procedure TForm1.Haselnuss4Click(Sender: TObject); 
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss6Click(Sender: TObject);
begin 
  Spiel(sender);
end;

procedure TForm1.Haselnuss3Click(Sender: TObject);
begin 
  Spiel(sender);
end;

procedure TForm1.Haselnuss2Click(Sender: TObject); 
begin
  Spiel(sender);
end;

procedure TForm1.Haselnuss5Click(Sender: TObject);
begin
  Spiel(sender);
end;

end.