Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

Forsted © (2009-05-07 20:54:00)
пишу типа такой маленькой текстовой игры и я хочу реализовать систему кулдауна(перезарядки способностей)
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 сек. дак как сделать так чтоб таймер запускался тока када я на кнопку способности нажимаю и при повторном нажатии он опять начинал сначала считать?

Forsted (2009-05-07 21:31:00) [1]
все я разобрался где моя ошибка спасибо

Сергей М. (2009-05-07 21:20:00) [2]
А мне почем знать почему ?

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

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

Forsted (2009-05-07 21:12:00) [3]
тогда почему работает так как я описал а не как ты?

Forsted (2009-05-07 21:11:00) [4]
еще забыл скопировать что в таймере после проверки :=фолс

Сергей М. (2009-05-07 21:11:00) [5]
И чего ?

Сергей М. (2009-05-07 21:10:00) [6]
Оч даже заметил)

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

Forsted (2009-05-07 21:09:00) [7]
если ты не заметил то у меня ето в проге прописано

Сергей М. (2009-05-07 21:07:00) [8]
Детский сад - штаны на лямках)
Речь не начинающего программиста, но кулхацкера из 6"Б"-класса..

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »