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.
