Eingabe oder Tastendruck im Form pauschal abfragen

[khh]

Hallo zusammen,

ich möchte ein geöffnetes Form nach einer gewissen Zeit per Timer schließen, wenn der User in dieser Zeit keine Eingabe vornimmt.
Gibt es ein Event, welches ich global abfragen kann, oder muss ich alle auf der Form befindlichen Bedienelemente einzeln behandeln?


Ich danke euch

[mm1256]

Code:

TForm.KeyPreview := true;

und dann nach Belieben

TForm.OnKeyDown oder
TForm.OnKeyUp oder
TForm.OnKeyPressed

[haentschman]

Hallo...

Deine Freunde sind FormKeyDown bzw. FormKeyPress in Verbindung mit KeyPreview = True;

[khh]

ich danke euch,
hätte ich ja auch selbst drauf kommen können

[Aviator]

Oder vielleicht auch hiermit: LastInputInfo
Hier noch ein Topic aus der DP, bei der auch schonmal jemand damit gearbeitet hat: Letzte Eingabe ermitteln

[khh]

mh, keydown etc. funktioniert leider nicht, da die Buttons ja per Touchscreen, sprich Mausklick bedient werden.
Also doch jedes Element auf OnMousDown abfragen?

EDIT: LastInputInfo sieht gut aus, aber wo ist TLastInputInfo definiert ?

[hoika]

Hallo,

die verlinkten Beispiele ist ein bisschen overdressed.

http://www.experts-exchange.com/Prog..._21838717.html
http://forum.codecall.net/topic/6014...-delphi-codes/

Aber das Stichwort ist Hook, es muss hier nat. nicht gleich ein systemweiter Hook per Dll sein,
es reicht auch ein App-Hook.

http://delphi.about.com/od/windowssh...board_hook.htm


Heiko

[Aviator]

Wenn du die Unit Winapi.Windows eingebunden hast, sollte er das automatisch finden.

Zitat von hoika:

Hallo,

die verlinkten Beispiele ist ein bisschen overdressed.

Aber das Stichwort ist Hook [...]

Hooks werden nur so wie ich es weiß öfters von Virenscannern erkannt. Ob das jetzt bei diesem auch der Fall ist weiß ich nicht. Habe auch noch nie mit Hooks arbeiten müssen. TLastInputInfo ist eben relativ einfach zu verwenden und kann regelmäßig über einen TTimer abgefragt werden.

Hier nur ein kleines Beispiel wie ich es umgesetzt habe:

Delphi-Quellcode:

LastInputInfo.cbSize := SizeOf(TLastInputInfo);
if GetLastInputInfo(LastInputInfo) then begin
  if ((GetTickCount - LastInputInfo.dwTime) >= Cardinal(InactivityValue * 60000)) then begin
    DoLockDatabase(True);  // Sperrt in meinem Fall die Datenbank
  end;
end;

[khh]

danke, funktioniert aber unter Lazarus leider nicht

[Nersgatt]

Ich habe das schon einmal mit einem lokalen Maus- und Tastaturhook gelöst. Das hat problemlos funktioniert und Virenscanner haben auch nicht gemeckert.
Ich würde das jederzeit dem KeyDown, etc. abfangen vorziehen.