Hi
Ich habe gerade ein Problem dabei die Pause procedure zu schreiben also mein Code schaut so aus
Delphi-Quellcode:
procedure TForm1.Pause;
var
ft, lt, l, r, st: Boolean;
begin
ft:= FahrtTimer.Enabled;
lt:= LevelTimer.Enabled;
l:= Links.Enabled;
r:= Rechts.Enabled;
st:= StartTimer.Enabled;
if BolPause = False then
begin
BolPause:= True;
FahrtTimer.Enabled:= False;
LevelTimer.Enabled:= False;
Links.Enabled:= False;
Rechts.Enabled:= False;
StartTimer.Enabled:= False;
end
else
begin
BolPause:= True;
FahrtTimer.Enabled:= ft;
LevelTimer.Enabled:= lt;
Links.Enabled:= l;
Rechts.Enabled:= r;
StartTimer.Enabled:= st;
end;
end;
Bevor ich die Timer deaktiviere Speicher ich den Status ob sie zur Zeit aktiv oder nicht aktiv sind in den variablen, aber wenn ich dann die variablen wieder zu den Timer setzten will passiert nichts dann ist zB. FahrtTimer.Enabel immer noch auf Flase. Hat das vielleicht was damit zu tuen das in der variablen anstatt True und False nur -1 und 0 gespeichert werden. Oder gibt es vielleicht irgendein befehl mit dem man das ganze Fenster Pausieren kann?
Hab den Fehler entdeckt muss die Variablen las globale deklarieren
