Delphi-Help

Главная Статьи Клавиши Как организовать цикл с действиями на клавиатуре?

Как организовать цикл с действиями на клавиатуре?

Оцените материал
(0 голосов)


Как организовать цикл с действиями на клавиатуре?

Нажимаем клавиши вверх, вниз, влево, вправо и по форме движется картинка.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  case   key of
   vk_LEFT: Image1.Left:=Image1.Left-2;
   VK_RIGHT: Image1.Left:=Image1.Left+2;
   vk_UP: Image1.Top:=Image1.Top-2;
   VK_DOWN:Image1.Top:=Image1.Top+2;
 end;
end;
Прочитано 3633 раз
Другие материалы в этой категории: « Как работать с ssShift и TShiftState? Программа KeyStatistic »

Авторизация



Счетчики