Zeit messen

[jaenicke]

In OnMouseDown den Wert von GetTickCount in einer Cardinalvariable merken, Tag des Buttons ginge auch, dann in OnMouseUp die Differenz ausrechnen.

Alternativ (genauer) ginge es mit QueryPerformanceCounter.

// EDIT:
Stattvar zeit:integer; lieber

Delphi-Quellcode:

var
  zeit: Cardinal;

Und noch besser gar nicht als globale Variable sondern z.B. als Feld im Formular.