Zu jeder Paintbox gibt es ein
Modell.
Ohne ein Modell ist es nicht möglich, die Anzeige einer Paintbox zu verändern!
Code:
Modell => Visualierung => Paintbox
Also muss der Code im Timer grundsätzlich so aussehen:
Delphi-Quellcode:
procedure TForm1.Timer1OnTimer(...);
begin
AendereParameterImModell;
Paintbox1.Invalidate;
end;
Und es gibt noch eine 2. Regel:
Grundsätzlich (ohne Ausnahme) darf man nur innerhalb des Events OnPaint
auf den Canvas der Paintbox zugreifen!
Es ist also verboten im Event OnShow der Formular oder aus einem Timer heraus auf
den Canvas der Paintbox zu zeichnen.