procedure TForm1.Button1Click(Sender: TObject); begin i:=5; //Допустим надо отсчитать 5 секунд Timer1.Enabled:=true; //Запускаем таймер end;
procedure TForm1.Timer1Timer(Sender: TObject); begin i:=i-1; //Отнимаем по секунде // Если время закончилось, то останавливаем таймер и показываем сообщение. if i=0 then begin Timer1.Enabled:=false; ShowMessage('Время истекло'); end; end;
Сообщение отредактировал ilnarko - Понедельник, 12 Декабря 2011, 14:22
Да, написать просто так, мне что делать нечего! Проект данной игры, написан со всеми игроками!год назад был создан вконтакте группа игроков с разных стран, и по общему обсуждению и по разговорам, был создан общий проект онлайн игры! Минимальный порог игроков через три месяца после создания игры, 8тыс! Нужно будет создать большой сервер