Wen ich aber mit der Maus über das Form fahre, kann es ein Wert geben, der über 4000 ist.
Braucht der Mauspfeil so viel Resourcen, das der Timer langsamer wird ?
Oder liegt das Problem wo anders ?
Ausserhalb des Forms kann ich mit der Maus rumfahren, so viel ich will, es gibt keine Änderung.
Code: Alles auswählen
var
zneu, zalt: TDateTime;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
zneu := Now;
Label1.Caption := (Format('%10.10f', [zneu - zalt]));
zalt := zneu;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Interval := 5;
end; 