IsArrowDown
From SCAR Divi Manual
Contents
Definition
function IsArrowDown(Num: Byte): Boolean;
Source Code
function IsArrowDown(Num: Byte): Boolean; begin Result := False; case Num of 0: Result := GetAsyncKeyState(VK_UP) <> 0; 1: Result := GetAsyncKeyState(VK_RIGHT) <> 0; 2: Result := GetAsyncKeyState(VK_DOWN) <> 0; 3: Result := GetAsyncKeyState(VK_LEFT) <> 0; end; end;
Availability
SCAR Divi 3.00 > Current
Description
Returns true if an arrow specified by Num was pressed.
Keys (Num)
- 0: Up
- 1: Right
- 2: Down
- 3: Left
Example
begin repeat Wait(500) until IsArrowDown(2); WriteLn('Pressed down'); end.