Button soll Programm neustarten

[Eazel]

Hi
als Neuling bin ich auf eure Hilfe angewiesen^^

und zwar

ich hab so ein kleines Spiel gemacht indem man den richtigen Knopf drücken muss

ich möchte es gerne so haben, dass wenn man auf den falschen Button drückt ein anderer Button erscheint der dann das Spiel neustarten lässt(bis hierhin bin ich gekommen)

doch nun weiß ich leider nicht wie der Befehl dafür ist das Spiel neu zu starten

könnt ihr mir helfen?

[haentschman]

Willkommen in der DP ...

Zitat:

könnt ihr mir helfen?

...nicht wirklich, da deine Informationen äußerst dürftig sind. Versuche mal genauer zu beschreiben, was du wann vorhast. Ein wenig Quelltext wäre vieleicht auch von Vorteil.

[Eazel]

ok also
Delphi 5 professional

wenn man den falschen Knopf gedrückt hat kommt ein "neustartenbutton" der dann das Spiel neustarten

quelltext? was meinst du damit?

ich wollte nur fragen ob es irgendwie ein befehl dafür gibt

[Luckie]

Quelltext ist das, was du in der IDE eingibst.

Ein Programm kann man mit Shellexecute starten. Aber warum neu starten? Wäre es nicht sinnvoller die Benutzeroberfläche zurückzusetzen?

[Eazel]

ja oder so

ich bin ein anfänger und ihr seid die profis

ich habe nurmal so ein kleines spiel gemacht und komm jetzt nicht weiter

wie setzt man denn die oberfläche zurück?

[Luckie]

In dem man zum Beispiel die Variablen auf ihre Anfangswerte zurücksetzt. Aber das kommt ganz auf dein Programm an und was es macht bzw. wie es funktioniert.

[Eazel]

kannst du das mal bitte so erklären dass ich das verstehe(bin ein neuling^^)

[youuu]

Zeig uns doch mal ein wenig Quelltext, damit man dir es anhand deiner Variablen zeigen kann.

So können wir ja nur raten, was du dir programmiert hast.

[Satty67]

Eine fest eingebaute Funktion "Setze Program auf Startzustand" gibt es nicht!

Du selbst hast den Startzustand ja festgelegt, indem Du Variablen mit Startwerten gefüllt hast. Deshalb musst Du selbst an diese Stelle zurück und selbst die Variablen auf Anfangszustand zurücksetzen. Am einfachsten hat man dieses Zurücksetzen in eine eigene Funktion gelegt, die man dann Aufruft.

Da das aber sehr abhängig vom geschriebenen Code ist, wirst Du nicht drum herum kommen, etwas Beispielcode aus Deinem Programm zu posten. Es gibt einfach keine allgemeine Lösung ala "befehl ResetProgramm"

[Eazel]

ok also ich poste jetztmal alles:

Delphi-Quellcode:

unit pHelloWorld;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ComCtrls, ExtCtrls;

type
  THelloWorld = class(TForm)
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Timer1: TTimer;
    ProgressBar1: TProgressBar;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Button1: TButton;
    procedure Button5Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  HelloWorld: THelloWorld;

implementation

{$R *.DFM}

procedure THelloWorld.Button5Click(Sender: TObject);
begin
HelloWorld.Color := clblue;
HelloWorld.caption := 'Blau';
Button5.Visible := false;
Button7.visible := true;
end;

procedure THelloWorld.Button7Click(Sender: TObject);
begin
HelloWorld.color := clgreen;
HelloWorld.caption := 'Grün';
Button7.visible := false;
Button2.visible := True;
Button6.visible := true;
Button3.visible := true;
Button8.visible := true;
Button4.visible := true;

end;

procedure THelloWorld.Button4Click(Sender: TObject);
begin
 Button2.Visible := false;
 Button6.visible := false;
 Button3.visible := false;
 Button8.Visible := false;
 Button4.visible := false;
 HelloWorld.caption := 'Glückwunsch';
 Timer1.Enabled := true;
 ProgressBar1.Visible := true;
 Label1.visible := true;
 Label2.visible := true;

end;

procedure THelloWorld.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position := ProgressBar1.Position+1;
if ProgressBar1.Position=100 then close;
end;

procedure THelloWorld.Button6Click(Sender: TObject);
begin
Label3.visible:= true;
Button2.Visible := false;
Button3.visible := false;
Button8.Visible := false;
Button4.Visible := false;
Button6.visible := false;
Label4.visible := true;
Button1.visible := true;

end;

procedure THelloWorld.Button3Click(Sender: TObject);
begin
      Label3.visible:= true;
Button2.Visible := false;
Button3.visible := false;
Button8.Visible := false;
Button4.Visible := false;
Button6.visible := false;
Label4.visible := true;
Button1.visible := true;
end;

procedure THelloWorld.Button8Click(Sender: TObject);
begin
Label3.visible:= true;
Button2.Visible := false;
Button3.visible := false;
Button8.Visible := false;
Button4.Visible := false;
Button6.visible := false;
Label4.visible := true;
Button1.visible := true;
end;

procedure THelloWorld.Button2Click(Sender: TObject);
begin
Label3.visible:= true;
Button2.Visible := false;
Button3.visible := false;
Button8.Visible := false;
Button4.Visible := false;
Button6.visible := false;
Label4.visible := true;
Button1.visible := true;

end;

procedure THelloWorld.Button1Click(Sender: TObject);
begin
HelloWorld.Close;
end;

end.

[edit=Matze][delphi]-Tags eingefügt. Zukünftig bitte selbst daran denken. MfG Matze[/edit]