Собственно, мне нужно написать программы в которой при нажатии клавиши 'P' человечек делает упражнение. Прекращает его при нажатии клавиши 's'.
Собственно, как сделать так, что бы человечек останавливался при нажатии 's'?
Остановка анимации по нажатию клавиши
Модератор: Модераторы
Афигеть , и что нужно ответить ?
То есть как анимацию сделать, человечка нарисовать и пр. я вкурсе. Это несложно. Там задача в том, что на экран выводится зацикленная анимация. Её нужно остановить по нажатию клавиши. Как организовать цикл, в котором выводится изображение, что бы реализовать выход из него при нажатии клавиши?
Код: Выделить всё
procedure TForm1.FormKeyPress(Sender: TObject; var Key: char);
begin
if Key='P' ...
end;Код: Выделить всё
while key<>'s' ...Неизвестный идентификатор 'key'...
Тут вопрос в чем. Что бы программа не спрашивала, продолжать ли ей выполнение после каждой итерации, а продолжала выполнение цикла до нажатия клавиши.
тогда ttimer и то, что выше , надеюсь события в лазарус создавать умеете