OnKeyUp soll nur auf Entf Taste reagieren aber nicht auf Strg+Alt+Ent

[Piro]

Moin zusammen,

irgendwie stehe ich auf dem Schlauch und finde keine passende Lösung.

In meiner Anwendung habe ich im OnKeyUp Event meines Grid folgende Logik programmiert.

Delphi-Quellcode:

procedure Tfrm_main.vst_tasksKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key = VK_DELETE then
   tbtn_tasks_menu_deleteClick(Self);

 if Key = VK_F5 then
 begin
   tbtn_tasks_menu_refreshClick(Self);
 end;
end;

Das funktioniert auch super. Nur wenn der Rechner mit Strg+Alt+Entf gesperrt wird und der Fokus auf der Anwendung liegt, wird das Event unfreiwilig ausgelöst.

Gibt es einen Zähler, der mir sagt, wie viele Tasten gedrückt wurden? Oder muss ich OnKeyPress nehmen damit es nicht passiert?

Wie kann ich dafür sorgen, dass kontrolliert wird, ob nur eine Taste gedrückt wurde. Also nur Entf oder F5 oder Insert zum Beispiel und nicht eine Kombination, wo eine Taste drin vorkommt.

Vielen Dank im Voraus.
Sven

[hoika]

Hallo,
GetKeyboardState vielleicht?

Ein Bsp.:
https://stackoverflow.com/questions/...have-the-focus

[DieDolly]

Kann es sein, dass das ein XE2 Problem ist? Oder Windows? Unter Rio 10.3 nicht nachstellbar. Ich frage in einer ListView OnKeyDown VK_DELETE ab. STRG+ENTF+DELETE führt meinen Code dennoch nicht aus.
Versuche es mal mit KeyDown statt KeyUp.

------

Uwe Raabe hatte die Lösung denke ich. Klappt zumindest bei mir ohne Probleme. Obwohl ich mit KeyDown auch keine hatte.

[Uwe Raabe]

Vielleicht hilft ein Seitenblick auf den ShiftState, in etwa so:

 if (Key = VK_DELETE) and (Shift = []) then

[Schokohase]

http://docwiki.embarcadero.com/Libra...es.TShiftState

Manchmal fragt man sich, warum die Doku so schlecht gepflegt wird, und dann und wann wozu es die überhaupt gibt, wenn dort keiner nachschaut.

[Piro]

Danke für die vielen Antworten und sorry wenn einige denken, ich würde die Doku nicht lesen.

Wenn ich weiß wo ich das Problem angehen, kann ich es auch besser nachlesen.

Werde die Tipps versuchen und es euch wissen lassen.

[Schokohase]

Zitat von Piro:

Danke für die vielen Antworten und sorry wenn einige denken, ich würde die Doku nicht lesen.

Wenn ich weiß wo ich das Problem angehen, kann ich es auch besser nachlesen.

Du hättest das Problem mit Neugier („Was macht dieses seltsame TShiftState eigentlich?“) lösen können, und die (Neugier) kommt vor dem Wissen und auch praktischerweise ganz ohne (Wissen) aus.

[Piro]

Ich habe TShiftState naiv mit der Shift-Taste verbunden.

Werde mich mal schlau machen.

Also wenn ich die Logik ins OnKeyDown Event verschieben, ist das Problem gelöst.

Danke alle für die schnellen Antworten und Anregungen.

[Piro]

Ok,

Danke Uwe. Das ist die beste Lösung.

Zitat:

Vielleicht hilft ein Seitenblick auf den ShiftState, in etwa so:
 if (Key = VK_DELETE) and (Shift = []) then

Tja, hätte ich mal meine Neugier etwas spielen lassen.

Nochmals an alle vielen Dank. Das ist ein geniales Forum hier.