Detect if the ALT key is pressed

Send By: Radikal (Q3 Team)
Web : http://www.q3.nu
Email: radikal@q3.nu
Date: 12/11/99

Tip accessed 79 times

For example, in the OnClick of a TButton:

 procedure TForm1.Button1Click(Sender: TObject);
 begin
  {Chequemos si la tecla ALT está pulsada}
  {Check if ALT key is down}
   if HiWord(GetKeyState(VK_MENU)) <> 0 then
     ShowMessage('Shift Pulsado/Shift pressed');
 end;