VK_RMENU korrekt abfragen

[SittingDuck]

Moin Moin ...

Wie kann ich die 'Alt Gr'-Taste abfragen, ohne das
die 'Strg'-Taste auch das Ereignis auslöst ?

Delphi-Quellcode:

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
 if GetAsyncKeyState(VK_CONTROL) < 0 then beep;
 if GetAsyncKeyState(VK_RMENU)   < 0 then sleep(50);
end;

So 'piept' es ja leider bei beiden Tasten ...

Leicht niedergedrückt, grüßt ...

[SirThornberry]

ich glaub nicht das es klappt da "Alt Gr" nichts anderes macht als "Strg + Alt". Das ist wie mit Tastaturen welche eine extra Taste für "kopieren" und "einfügen" haben welche auch nichts anderes als "Strg + C" und "Strg + V" auszulösen.