Как в Delphi XE обнулить таймер?

[Drouge]

У меня есть кнопка, и надо чтобы через 5 секунд после её нажатия - она отжалась назад. Я попробовал добавить на форму таймер, и в обработчике нажатия кнопки написал:

ReturnToReadModeTimer.Enabled:=fals e;
ReturnToReadModeTimer.Interval:=500 0;
ReturnToReadModeTimer.Enabled:=true ;

В событии таймера соответственно ReturnToReadModeTimer.Enabled:=fals e;
Но это пока не работает как надо: в первый раз кнопка отжимается через 5 секунд, а в последующие - сразу. Как обнулить счётчик таймера, чтобы он и во второй раз сработал не сразу, а через 5 секунд после нажатия кнопки?

[evg_m]

timer.enabled:=true; //при нажатии
timer.enabled:=false; //при отжатии

[Drouge]

Сообщение от evg_m

timer.enabled:=true; //при нажатии
timer.enabled:=false; //при отжатии

Нет, это не работает. И мне надо не при отжатии, а через 5 секунд после нажатия.

[northener]

Сообщение от Drouge

У меня есть кнопка, и надо чтобы через 5 секунд после её нажатия - она отжалась назад.

А можно поподробнее. Что значит "чтобы через 5 секунд после её нажатия - она отжалась назад"?
И что за кнопка?
И при чём тут таймер?

[BDA]

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Enabled := True;
  Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;
  Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // или в инспекторе объектов задать эти свойства
  Timer1.Enabled := False;
  Timer1.Interval := 5000;
end;

При нажатии кнопка отключается, а через 5 секунд включается. Так подойдет?

[Drouge]

Сообщение от BDA

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Enabled := True;
  Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;
  Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // или в инспекторе объектов задать эти свойства
  Timer1.Enabled := False;
  Timer1.Interval := 5000;
end;

При нажатии кнопка отключается, а через 5 секунд включается. Так подойдет?

Кажется нет: в первый раз кнопка будет отключена 5 секунд, а второй и далее менее секунды. Я сейчас не дома чтобы проверить, но у меня практически такой же код и был, и он не работает.
Я понимаю конечно что можно закодить костыль, но нелепо как-то получается...

[Shouldercannon]

Сообщение от BDA

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Button1.Enabled := True;
  Timer1.Enabled := False;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  Button1.Enabled := False;
  Timer1.Enabled := True;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  // или в инспекторе объектов задать эти свойства
  Timer1.Enabled := False;
  Timer1.Interval := 5000;
end;

При нажатии кнопка отключается, а через 5 секунд включается. Так подойдет?

На Embarcadero RAD Studio 10.1 Berlin работает идеально.

[Drouge]

Сообщение от Shouldercannon

На Embarcadero RAD Studio 10.1 Berlin работает идеально.

Ок, буду иметь в виду. Можете сказать, какие ещё улучшения есть в 10.1 по сравнению с XE 8?

[northener]

Сообщение от Drouge

Можете сказать, какие ещё улучшения есть в 10.1 по сравнению с XE 8?

По работе с таймерами никаких улучшений не было. Да их и вообще не было никогда с времен царя Гороха. Что там улучшать. Так что виноват ваш код, а не версия Дельфи.