Книга: Описание языка PascalABC.NET

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

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

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

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.

Оглавление книги

Оглавление статьи/книги
Похожие страницы

Генерация: 1.265. Запросов К БД/Cache: 3 / 1
поделиться
Вверх Вниз