Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
if button1.caption = 'Spiel abbrechen' then begin
timer1.enabled:=false;
timer2.enabled:=false;
button1.caption:='Neues Spiel beginnen';
Startbildschirm.visible:=true;
haselnuss1.visible:=false;
haselnuss2.visible:=false;
haselnuss3.visible:=false;
haselnuss4.visible:=false;
haselnuss5.visible:=false;
haselnuss6.visible:=false;
haselnuss7.visible:=false;
haselnuss8.visible:=false;
haselnuss9.visible:=false;
haselnuss10.visible:=false;
haselnuss11.visible:=false;
haselnuss12.visible:=false;
scrat.visible:=false;
progressbar1.visible:=false;
// Soundtrack ausschalten
Mediaplayer2.filename:='Propellerheads - Spybreak! (Short One).mp3';
MediaPlayer2.close;
end
else
if button1.caption = 'Neues Spiel starten' then begin
timer1.enabled:=true;
timer2.enabled:=true;
button1.caption:='Spiel abbrechen';
Startbildschirm.visible:=false;
haselnuss1.visible:=true;
haselnuss2.visible:=true;
haselnuss3.visible:=true;
haselnuss4.visible:=true;
haselnuss5.visible:=true;
haselnuss6.visible:=true;
haselnuss7.visible:=true;
haselnuss8.visible:=true;
haselnuss9.visible:=true;
haselnuss10.visible:=true;
haselnuss11.visible:=true;
haselnuss12.visible:=true;
scrat.visible:=true;
usw.......... Ich möchte nun durch 2 weitere Buttons..einer LEICHT der andere SCHWER die Schwierigkeit vom Benutzer auswählen lassen, und zwar so das ich einfach nur den interval vom Timer ändere.
Kann mir da jemand helfen???
Und wie kann ich eine
Hintergrundgrafik einfügen bwz es verhinden das sie alle anderen Images überdeckt?!?
Und danke für eure Hilfe bisher..echt super..mein Programm ist fast fertig
[edit=Admin]Delphi-Tag korrigiert. Mfg, Daniel[/edit]