Страница 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
Попробую.