Страница 1 из 1

Остановка анимации по нажатию клавиши

СообщениеДобавлено: 22.04.2012 22:19:40
Leontev
Собственно, мне нужно написать программы в которой при нажатии клавиши 'P' человечек делает упражнение. Прекращает его при нажатии клавиши 's'.

Собственно, как сделать так, что бы человечек останавливался при нажатии 's'?

Re: Остановка анимации по нажатию клавиши

СообщениеДобавлено: 22.04.2012 22:21:53
Ism
Афигеть , и что нужно ответить ?

Re: Остановка анимации по нажатию клавиши

СообщениеДобавлено: 22.04.2012 22:25:15
Leontev
То есть как анимацию сделать, человечка нарисовать и пр. я вкурсе. Это несложно. Там задача в том, что на экран выводится зацикленная анимация. Её нужно остановить по нажатию клавиши. Как организовать цикл, в котором выводится изображение, что бы реализовать выход из него при нажатии клавиши?

Re: Остановка анимации по нажатию клавиши

СообщениеДобавлено: 22.04.2012 22:40:21
Ism
Код: Выделить всё
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
  if Key='P' ...
end;

Re: Остановка анимации по нажатию клавиши

СообщениеДобавлено: 22.04.2012 22:50:26
Leontev
Код: Выделить всё
while key<>'s' ...


Неизвестный идентификатор 'key'...

Тут вопрос в чем. Что бы программа не спрашивала, продолжать ли ей выполнение после каждой итерации, а продолжала выполнение цикла до нажатия клавиши.

Re: Остановка анимации по нажатию клавиши

СообщениеДобавлено: 22.04.2012 22:51:17
Ism
тогда ttimer и то, что выше , надеюсь события в лазарус создавать умеете

Re: Остановка анимации по нажатию клавиши

СообщениеДобавлено: 22.04.2012 22:53:44
Leontev
Попробую.