Показания с Timer

[undead92]

Здравствуйте, такой вот вопрос, есть кнопка и таймер на 2,5 сек, кнопка становится активной каждые 2,5 секунды и после нажатия становиться неактивной на 2,5сек.

Над кнопкой расположен label и в нем хотелось бы чтобы было написано сколько осталось до ее активации, либо цифрами либо как в игрухах пустая полосочка заполнялась до конца и исчезала

[Stilet]

Не. Так не получится. Делай второй таймер, который через миллисекунду будет в Лабель отрисовывать остаток времени.
Или по другому - делай первый таймер срабативания через каждые миллисеки, но в нем инкрементируй некую стороннюю переменку. И когда она достигнет значения 2500 останавливай таймер и активируй кнопку

[undead92]

спасибо, тогда вопрос следом как сделать такой массив, то есть каждую милисикунду в label идет число от 2,5 2,4 и так до конца, одно число я знаю как засунуть а все нет

2 timer interval 100 - lbl2.caption:= 2,4 (как сделать чтобы следующие были ниже цифры)

надеюсь не придется лепить цикл(

[Hacker19_90]

так ещё раз!
Вам надо в лейбл числа столбиком чтоль?

[undead92]

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

так ещё раз!
Вам надо в лейбл числа столбиком чтоль?

да просто в лейбл надо чтобы интервал таймера отображался, то есть 2,5 2,4 2,3 2,2 2,1 2,0 и так до конца

[Noor]

Посмотрите этот пример, может что для себя возьмете

[Hacker19_90]

если выставите правильный интервал то сработает
Ну и соответственно где до срабатывания таймера надо Label1.Caption := '2.5';
тогда

procedure Timer.OnTimer;
begin
   Label1.Caption := FLoatToStr(StrToFloat(Label1.Caption) - 0.1);   
end;

[Stilet]

Label1.Caption := FLoatToStr(StrToFloat(Label1.Captio n) - 0.1);

Автор вот так хочет:

Label1.Caption := Label1.Caption + FLoatToStr(StrToFloat(Label1.Caption) - 0.1);

[Hacker19_90]

цитирую

2 timer interval 100 - lbl2.caption:= 2,4 (как сделать чтобы следующие были ниже цифры)

тогда так

Label1.Caption := Label1.Caption + #13 + FLoatToStr(StrToFloat(Label1.Caption) - 0.1);

[undead92]

Всем спасибо