Entwickler-Ecke
Sonstiges (Delphi) - Länge eines Tastendrucks feststellen
futti - Di 18.10.05 13:39
Titel: Länge eines Tastendrucks feststellen
Hallo da draußen,
wie kann ich in Delphi 2005 Win32 die Länge eines Tastendrucks abfragen? Geht das mit TTimer? Wenn ja, wie. Habe ich nämlich noch nie verwendet.
Vielen Dank und viele Grüße
Futti
digi_c - Di 18.10.05 13:48
Du benötigst die Funktion
GETTICKCOUNT die dann bei Tastendruck eine globale Variable füllt und beim loslassen die Differenz aus der LoslassZeit und der globalen Startzeit bildet.
futti - Mi 19.10.05 12:56
Habe Gettickcount ausprobiert.
Die Funktion liefert angeblich Millisekunden zurück.
Wenn ich ca. 3 Sekunden die Taste drücke, bekomme ich als Ergebnis den Wert 16. Das kann dann wohl nicht stimmen.
Muss ich evt. noch ein paar Voreinstellungen vornehmen?
Gruß Futti
Gausi - Mi 19.10.05 12:59
Wie berechnest du denn den Wert 16? Normalerweise sollte der Ansatz nämlich klappen, denke ich...
futti - Mi 19.10.05 13:03
Wenn die Taste gedrückt wird schreibe ich den Wert, der von GetTickCount geliefert wird in eine Variable <Start>. Wird die Taste losgelassen schreibe ich den Wert aus Gettickcount in <Stop>.
<Diff> := <Stop> - <Start>;
<Diff> hat bei mir den Wert 16.
godworx - Mi 19.10.05 13:35
die variable in die die werte gespeichert werden muss vom Typ Cardinal sein... dann gehts
Delphi-Quelltext
1:
2:
3:
| Zeit := GetTickCount;
label1.Caption:= IntToStr((GetTickCount - Zeit)div 1000 ); |
Moderiert von 
raziel: Code- durch Delphi-Tags ersetzt
futti - Do 20.10.05 08:46
Habe die Variablen in cardinal umgestellt. Jetzt kommt bei der Berechnung 0 raus. Ich verstehe das nicht!
Vielleicht hat jemand noch eine andere Idee...
futti - Do 20.10.05 10:13
Tja, manchmal sieht man den Wald vor lauter Bäumen nicht. Wenn die Taste gedrückt gehalten wird, wird das OnkeyDown-Event immer wieder neu ausgelöst und in meinem Code auch die Zeit immer wieder neu berechnet. Deshalb ist die Differenz nie so groß wie gedacht.
Danke für Alles :oops: :P
Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2026 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!