Ich schließ mich da jetzt mal Satanly (
) an. Du nimmst einen Timer, doppelklickst auf ihn nachdem du alle Einstellungen gemacht hast und dann schreibst du hinter das
begin der Prozedur:
Delphi-Quellcode:
Labels[(Position+9) mod 10].Color := clBlack;
Position := (Position+1) mod 10;
Labels[(Position+1) mod 10].Color := clRed;
Dann kommt schon das
end; der Prozedur und gut is.
MfG Florian
