Как организовать цикл с действиями на клавиатуре?
Нажимаем клавиши вверх, вниз, влево, вправо и по форме движется картинка.
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; |
