Einzelnen Beitrag anzeigen

SittingDuck

Registriert seit: 11. Jan 2006
Ort: Leverkusen
159 Beiträge
 
Delphi 2010 Professional
 
#1

VK_RMENU korrekt abfragen

  Alt 12. Jan 2007, 08:38
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 ...
Ciao ... SittingDuck
iPhone Backup und mehr: iTwin v3.9 Beta ... Alternative Startleiste: Launcher v3.8 !
  Mit Zitat antworten Zitat