Mega Code Archive

 

Categories / Delphi / Examples

 

Isshift

Is the shift key held down function IsShift: Boolean; begin Result := GetKeyState(VK_SHIFT) and 128 <> 0; end;