TForm1.Canvas nicht in procedure zu verwenden?

[DeddyH]

Du hast eine Endlosschleife in einen Timer gepackt :pale:

[edit] Schau Dir mal den Anhang an, noch nicht optimal, aber geht erstmal. [/edit]

[rollstuhlfahrer]

Mir ist noch etwas aufgefallen. Bei jedem Zeichnen änderst du den Status der Ampel, also wenn du schnell mit der Maus über das Form fähst, wechselt die Ampel 200-300 mal ihre Farbe (rot, gelb, grün). Sonst ganz in Ordnung.

rollstuhlfahrer

[pyromane]

is ja noch net Fertig... ich muss ja dann die eine Ampel in eine Kreuzung einbauen.

Achso ist dass, beim drüberfahren, tritt onPaint in kraft... Kennst du eine bessere Stelle? onPaint wurde vorgeschlagen, damit die Umrisse neugezeichnet werden, sofern die Form minimiert/maximiert wurde.

Vl. in onReactivate?