Таймер на паузу

[yulia]

Поскольку у меня надо по клику мышки на форме, я делала так:
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if (paused=false) then paused:=true;
end;

ну в самом начале paused:=false (при создании формы); понятно, что так оно дальше бежать не будет, а просто замрет, но ... не могу понять почему оно именно виснет.... кнопка пуск перестает нажиматься...

[Sm1Le]

к примеру Мне больше нравиться останавливать и запускать Нажатием клавиши клавиатуры.

Выдели Форму KeyPreview в True. И в OnKeyPress к примеру на клавишу 'b'
if key='b' then
begin
if Timer1.enable then
Timer1.Enable:=False
else
Timer1.Enable:=True;
End;
-вот так ...

[yulia]

А если отдельную кнопку ставить, то действительно работает....

[yulia]

Та у меня конкретное задание по клику мышки.....

[yulia]

Все, сделала... только так и не поняла почему оно так....
Я убрала строку
Image1.Unlock и все заработало....

[yulia]

Спасибо всем за помощь....

[Sm1Le]

хммм наверно Проблема с тем что Клик происходить на разных объектах ... Потому и глюки =))