Перемещение окна с помощью клавиатуры.

Данная программа осуществляет перемещение графического окна с помощью клавиатуры:

Uses GraphABC;

Procedure KeyDown(Key: integer);

Begin.

Case Key of.

VK_Left: Window.Left := Window.Left - 2;

VK_Right: Window.Left := Window.Left + 2;

VK_Up: Window.Top := Window.Top - 2;

VK_Down: Window.Top := Window.Top + 2;

End;

End;

Begin.

// Привязка обработчиков к событиям.

OnKeyDown := KeyDown;

End.