Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Delphi] Таймер

Автор: ellis 1.5.2007, 16:18

идея такая
Существует кнопка принажатии на неё срабатывает таймер и начинает отщитывать время назат приэтом всё отображается полосой времени , когда время сравнялось с нулём включается сообщение время вышло.
как это можно сделать .... или где почитать про это можно

РS представление о прагромирование "0"

Автор: maniaks1 1.5.2007, 18:42

Если тебя интересует в виде полосы времени TProgressBar:

Ложишь на форму TProgressBar, TButton, TTimer.

У таймера ставишь Enabled=false

По нажатию на кнопку:

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
  Timer1.Enabled:=true;
end;

У ProgressBar Max ставишь в зависим. от скольки будет отсчёт.
Например 20

У таймера:

p

Код


rocedure TForm1.Timer1Timer(Sender: TObject);
begin
  ProgressBar1.Position:=i;
  i:=i-1;
  if i<0 then
  begin
    Timer1.Enabled:=false;
    ShowMessage('Время вышло');
  end;
end;

ну i это естественно Integer и равно 20
Определяешь так:
var
i:Integer=20;

А если тебе нужно графическое отображение в виде цифр, то так:

http://maniaks1.narod.ru/timer.rar

M
Alexeis

Модератор: используйте подсветку кода http://forum.vingrad.ru/index.php?showtopic=126445

Автор: Данкинг 1.5.2007, 19:57

Цитата(ellis @ 1.5.2007, 17:18)

РS представление о прагромирование "0"

А о русском языке тогда какое представление? smile

По теме: идея maniaks1 - единственная верная ИМХО.

Автор: Alexeis 1.5.2007, 20:01

Для домашних заданий, курсовых, существует "Центр Помощи".

Тема перенесена!

Автор: ellis 1.5.2007, 20:16

как сделать чтобы от самого правого края ProgressBar синяя полоска уменшалась к левому, а не от центра к левому краю.

Автор: sw04 1.5.2007, 20:52

Цитата(ellis @ 1.5.2007, 23:16

)

Надо в самом начале поставить значение минимальным.