Книга: Описание языка 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.567. Запросов К БД/Cache: 4 / 1
поделиться
Вверх Вниз