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