Shapes verdecken mit Image und Timerfunktion

Waldkauz · Beiträge: 102

Hallo

Also, Image6 verdeckt bei mir 5 Shapes.
Wenn der Timer eingeschaltet wird, soll Image6 für 3 Sekunden unsichtbar werden, und somit sollen die Shapes sichtbar sein.
Das Problem ist, dass zwar Image6 unsichtbar wird, aber unsichtbar bleibt.

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

procedure TForm6.Timer1Timer(Sender: TObject);
var t:integer;
begin
 t:=3;
 t:=t-1;
 Image6.Visible:=false;
 if t=0 then begin
  Image6.visible:=true;
  Timer1.Enabled:=false; 
 end;

end;

jaenicke · Verfasst: So 28.06.09 21:27

Also erstens ist beim nächsten Durchlauf des Timers der Wert von t nicht mehr vorhanden, falls das nicht klar ist. (Aber du setzt ihn ja ohnehin jedesmal.)

Waldkauz hat folgendes geschrieben :

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:

 t:=3;
 t:=t-1;
 Image6.Visible:=false;
 if t=0 then begin
  Image6.visible:=true;
  Timer1.Enabled:=false; 
 end;

So, dann schauen wir doch einmal was du da machst... :roll:

Du weist t den Wert 3 zu.
Du ziehst 1 ab, danach ist der Wert immer 2.
Jetzt blendest du das Image aus. Immer.

Und jetzt schaust du, ob t = 0 ist. Wie soll es das an der Stelle aber sein? 3 - 1 ist nie 0, oder siehst du das anders? ;-)

Waldkauz · Beiträge: 102

Ich würd mich jetzt am liebsten in eine Ecke stellen und mich schämen :oops:

...
Aber wenn man 6000 Zeilen Quellcode hinter sich hat, darf man einem das nicht übel nehmen

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme