Использование кравиатуры в PascalABC, Использование клавиатуры для смены направления движения объекта Опции

[looogle]

Всем доброго времени суток!

Такая проблема:

я использую цикл для смены координат объекта, то есть за один проход цикла перерисовываю круг с помощью DrawCircle на новое место с изменившейся координатой. Запускается цикл нажатием клавиши, соответствующей направлению движения. Вот кусок кода:

procedure KeyDown(Key: integer);
begin
  
  if Key = VK_Enter then start //провека Enter
  
  else begin
  
  LockDrawing;
  
  repeat
    Window.Clear;
    
    case Key of
      VK_Left: x := x - 1;  //влево
      VK_Right: x := x + 1; //вправо
      VK_Up: y := y + 1; //вверх
      VK_Down: y := y - 1; //вниз
      VK_Space: break;
    end;
    
    DrawCircle(x, y, r);
    Redraw;
    Sleep(1);
  until key = VK_Space; //здесь не уверен, что писать в условии
  end;
end;

begin
  
  y := 100; //y
  x := 100; //x
  r := 10; //радиус
  
  
  TextOut(250, 200, 'Pess enter to start');

    OnKeyDown := KeyDown;
end.

Программы выполняется так: Открывается окно, я нажимаю Enter, потом стрелку (вправо, влево, вверх или вниз) и круг (объект) начинает плавно перерисовываться или двигаться в одну (заданную мно стрелками) сторону.

Проблема в том, что при повторном нажатии направление движение не меняется. Я понимаю, что впринципе так и должно быть. Но вот как сделать чтобы напраление менялось я не знаю.

Пожалуйста, помогите.

Сообщение отредактировано: looogle - 18.05.2011 3:14

[Гость]

А как выйти из обработчика? Ну, то есть, он отработал, но после этого надо выполнить код, который находиться после точки вызова обработчика. Что только не пробовал, ничего не помогло.

[looogle]

А как выйти из обработчика? Ну, то есть, он отработал, но после этого надо выполнить код, который находиться после точки вызова обработчика. Что только не пробовал, ничего не помогло.

Уберите

Halt;

в процедуре

Start;

выполнение вернётся в обратно

main;

Сообщение отредактировано: looogle - 28.04.2015 19:44