Thema: Delphi einfaches lauflicht?

Einzelnen Beitrag anzeigen

Benutzerbild von Chriss
Chriss

Registriert seit: 6. Aug 2002
Ort: Ahlen
124 Beiträge
 
Delphi 7 Enterprise
 
#1

einfaches lauflicht?

  Alt 22. Mai 2003, 07:51
hi @ all!!

ich hab ein einfaches lauflicht programmiert. es arbeitet mit 10 labels, wovon immer nur 3 "rot leuchten".
ich hab es schon hinbekommen, dass das lauflicht von links nach rechts und wieder zurück funktioniert, aber dann geht es nicht weiter... warum nicht!?

damit zähle ich ein label hoch, woran sich das lauflicht orientieren soll:

Code:
Label1.Caption := IntToStr(i+1);
i := i+1;
und mit diesem teil "leuchten" die label auf:

Code:
if label1.caption='20' then
begin
label12.color:=clblack;
label15.color:=clred;
end;
(da ist es bereits an der 4. "lampe")

der rückweg geht gleich:

Code:
if label1.caption='85' then
begin
label15.color:=clblack;
label12.color:=clred;
end;

alles schön und gut... aber wenn ich jetzt das label auf '0' setzte, geht es nicht weiter, aber er sollte doch eigentlich wieder hochzählen, oder?

thx

Chriss
I'll be right there - I'll never leave - All I ask of you is ~ Believe
(Christopher Michael Oliva ~ 1963-1993 [Savatage]
  Mit Zitat antworten Zitat