Probel mit Timer

[Jens Schumann]

Hallo LoW_FloW,
anstatt mit Hilfe eines Timers könnte Du auch diue API-Funktion GetTickCount verwenden.
GetTickCount liefert die Anzahl der verstrichenen Millisekunden seit dem Start.
Beipspiel:

Delphi-Quellcode:

...
  var 
    StartTime : DWord;
...
  StartTime:=GetTickCount;
  for i := 1 to 50 do
    begin
    FigurListe.GetBitmap(0, Image1.Picture.Bitmap) ;
    repaint ;
    FigurListe.GetBitmap(1, Image1.Picture.Bitmap) ;
    repaint ;
    end;
  Label1.Caption := IntToStr(GetTickCount-StartTime)+' MilliSekunden' ;
...

So brauchst den Timer gar nicht.