Tastenkombination Ctrl+K+P erkennen

[taaktaak]

So, Antwort selbst gefunden.

Mein Ansatz mit dem Tastaturpuffer war schon 'ne gute Idee. Lösung nachstehend, falls es mal ein Anderer gebrauchen kann - Maus hin, Maus her, manchmal geht es mit der Tastatur einfach schneller...

Delphi-Quellcode:

procedure ~~.FormKeyDown(~~~~);
var KeybState : TKeyboardState
begin

  GetKeyboardState(KeybState);   // in Unit Windows deklariert

  if (KeybState[VK_Control] and 128=128) and         // Ctrl
     (KeybState[ord('K')]   and 128=128) and         // K
     (KeybState[ord('P')]   and 128=128) then begin  // P
    ...
    ..
    .
    end;
end;

Ach ja, darauf achten, dass Großbuchstaben für die Indizierung des Arrays verwendet werden, mit Kleinbuchstaben (also z.B. ord('k') funktioniert's nicht.

Gute Nacht aus Hamburg
Ralph