сброс таймера

← →
Forsted (2009-05-07 20:54) [0]

пишу типа такой маленькой текстовой игры и я хочу реализовать систему кулдауна(перезарядки способностей)
procedure TForm4.FireBallClick(Sender: TObject);
begin
enhealth:=enhealth-ogon*10;
trackbar1.Position:=trackbar1.Position-ogon*30;
fireball.Enabled:=false;
firedefend.Enabled:=false; это кнопки
cooldown.enabled:=true; кулдаун ето таймер---ето я так пытался сделать чтоб запускался тока по нажатию на кнопку способность
енд

procedure TForm4.CooldownTimer(Sender: TObject);
begin

if trackbar1.Position<ogon*30 then fireball.Enabled:=false {сравнение для того чтоб определить хватает ли маны}
else fireball.Enabled:=true;
енд
но прикол в том что както так полуается что таймер не останавливается и если например поставить 30 сек перезарядку то как тока форма запустилась то таймер и пошел отсчитывать и если нажать на 28 секунде на способность то кулдаун будет тока 2 сек. дак как сделать так чтоб таймер запускался тока када я на кнопку способности нажимаю и при повторном нажатии он опять начинал сначала считать?

← →
Сергей М. © (2009-05-07 21:07) [1]

Детский сад - штаны на лямках)
Речь не начинающего программиста, но кулхацкера из 6"Б"-класса..

процедурь Форма1КнопкаСпособностиКлац(Сендер: ТОбжект);
бигин
..
.. ДауновКуль.Инейблд := Фолс; // стоп таймер
..
.. ДауновКуль.Инейблд := Тру; // старт таймер
..
энд:

← →
Forsted (2009-05-07 21:09) [2]

если ты не заметил то у меня ето в проге прописано

← →
Сергей М. © (2009-05-07 21:10) [3]

Оч даже заметил)

А это ты к чему ?

← →
Forsted (2009-05-07 21:11) [4]

еще забыл скопировать что в таймере после проверки :=фолс

← →
Сергей М. © (2009-05-07 21:11) [5]

И чего ?

← →
Forsted (2009-05-07 21:12) [6]

тогда почему работает так как я описал а не как ты?

А мне почем знать почему ?

Я знаю одно - таймер достоверно останавливается при установке св-ва Enabled = False и стль же достоверно стартует при установке Enabled = True.

Но установка этого св-ва никоим образом не влияет на уже имеющееся сообщение WM_TIMER в очереди оконных сообщений.

← →
Forsted (2009-05-07 21:31) [8]

все я разобрался где моя ошибка спасибо

сброс таймера Найти похожие ветки