Zeit messen

[delphi-projekt]

Hallo,

wie kann ich mit einer ganz einfachen Prozedur messen, wie lange ein Button gedrückt worden ist?

Kann mir jemand dazu ne kurze Anleitung mit Quelltext nennen?

LG :-D

[blink182]

hi

im MouseDown vom button in einer globalen variable die zeit speichern und dann im MouseUp die differenz bilden, dann hast du die millisekunden

Delphi-Quellcode:

var zeit:integer;

procedure TForm1.Button1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 zeit:=GetTickCount;
end;

procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 showmessage(inttostr(GetTickCount-zeit));
end;

[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:
Statt

Delphi-Quellcode:

var zeit:integer;

lieber

Delphi-Quellcode:

var
  zeit: Cardinal;

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

[Whatever]

Das ist nicht allzuschwer also gibts au kein Codebeispiel :-D
Ich würd dir GetTickCout empfehlen.
Im MouseDowm speicherste den aktuellen TickCount in eine Variable. Im MouseUp erneuet. Dann errechnest du die Differenz.

mfg Whatever

[Micha88]

Ich habe mal vor einiger Zeit folgendes in einem Forum gefunden, nicht allzu gut aber für jemanden der nur Timer und wenige Datentypen kennt das richtige

(Ist halt nur nicht auf die Millisekunde genau ..)

[jaenicke]

Zitat:

Zitat von MichaelLinden

Ich habe mal vor einiger Zeit folgendes in einem Forum gefunden, nicht allzu gut aber für jemanden der nur Timer und wenige Datentypen kennt das richtige

(Ist halt nur nicht auf die Millisekunde genau ..)

Das dürfte so ziemlich die ungenaueste und unsauberste Variante sein, die es gibt. ;-)

[_frank_]

GetTickCount löst aber nur etwa 10ms-genau auf, ist die procedure schneller benötigt man QueryPerformanceCounter...da hab ich das mal implementiert: http://www.delphipraxis.net/internal...=998390#998390

TTimer wird imho auch angehalten, wenn z.b. das Formular verschoben wird...

Gruß Frank

[Whatever]

Ja einmal stoppt er kurz und desweiteren hab ich mal irgendwo gelesen das der Timer nur auf ca. 40ms genau ist...

[delphi-projekt]

Danke für die schnellen Antworten.

Eine Frage habe ich noch: Warum streicht es mir den Befehl Button1MouseDown immer rot an?
Ich habe doch einen Button1

[jaenicke]

Zitat:

Zitat von Whatever

Ja einmal stoppt er kurz und desweiteren hab ich mal irgendwo gelesen das der Timer nur auf ca. 40ms genau ist...

Ein Timer ist so oder so ungenau, egal mit welchem Intervall. Ein Timer ist aber auch gar nicht dafür gedacht genau zu sein. Schließlich passiert die Zeitmessung (eigentlich :roll: ) unabhängig davon.

Zitat:

Zitat von delphi-projekt

Eine Frage habe ich noch: Warum streicht es mir den Befehl Button1MouseDown immer rot an?
Ich habe doch einen Button1

Kann es sein, dass du das nicht unter Ereignisse beim Button eingetragen sondern einfach kopiert hast? :shock: