// Abfragen, ob "AltGr" gedrückt wurde.


// Getestet mit RS 10.4 unter Win11

procedure TForm1.FormCreate(Sender: TObject); 
begin 
  KeyPreView := True; 
end; 
 
// Variante 1 
function IsKeyDown(Key: Word): boolean; 
var 
  KeyState: TKeyboardState; 
begin 
  GetKeyboardState(KeyState); 
  result := (KeyState[Key] <> 0) 
end; 
 
// Variante 2 
function AltGr: boolean; 
begin 
  result := ((GetAsyncKeyState(VK_RMENU) AND $8000) <> 0); 
end; 
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; 
  Shift: TShiftState); 
begin 
  if IsKeyDown(VK_RMENU) then 
    // if AltGr then 
    showmessage('"AltGr" wurde soeben gedrückt'); 
end; 

Zugriffe seit 6.9.2001 auf Delphi-Ecke