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

[megostudent]

вот сделал код который через 3 секунды выбивает сообщение "1", через 5 сообщение "2" и через 7 сообщение"3"

procedure TForm1.Timer1Timer(Sender: TObject);
begin
showmessage('1');
timer2.Enabled:=true;
timer1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
showmessage('2');
timer3.Enabled:=true;
timer2.Enabled:=false;
end;

procedure TForm1.Timer3Timer(Sender: TObject);
begin
showmessage('3');
timer1.Enabled:=true;
timer3.Enabled:=false;
end;

не пойму как сделать так чтобы сообщение не выбивалось через 3,5,7 секунд, а сначала выбилось а потом уже ждало 3, 5, 7сек. Помогите плиз

[Вадим Мошев]

Несмотря на то, что вот это мне не понятно:

не пойму как сделать так чтобы сообщение не выбивалось через 3,5,7 секунд, а сначала выбилось а потом уже ждало 3, 5, 7сек. Помогите плиз

общая суть понятна.
Во-первых, три таймера - не надо. Достаточно только одного таймера.
___________________

1.Объявите глобальную переменную seconds, которая будет показывать, сколько секунд прошло после запуска программы.

2. После запуска программы надо включить таймер (Time1.Enabled:=true).
3. В обработчике таймера делать так:
3.1 Если величина Seconds равна чему-то, то показывать сообщение. Эту операцию надо повторить только, сколько вам нужно.
3. Увеличить значение Secons на 1: Inc(Seconds)

[megostudent]

смутно чтот я понял как это делать) суть того что я хочу сделать такова:
в таймере1 стоит интервал-3сек, таймере2 стоит интервал-5сек, в таймере3 стоит интервал-7сек, то есть через 3 секунды после включения программы выбивается сообщение с текстом "1" и т.д. мне нужно чтобы при включении программы сообщение с текстом "1" выбивалось сразу и ждало 3 сек. и т.д.

[mss]

Накой шиш тебе аж целых ТРИ таймера ?
Всё это расчудесно делается и с помощью одного-единственного с периодом тиков 1 сек

[Kristian]

В вар добавь

    r,z:integer;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Чтобы работал нормально в OnCreate пишите r:=1; и z:=0;
r:=r+2; //1+2=3    3+2=5  5+2=7
ShowMessage(IntToStr(r));
z:=r*1000; //Делаем секунды в милисекунды
Timer1.Interval:=z;  //Дадим интервал
if r=7 then timer1.enabled:=false; //Если вы достигли нужной цели то таймер отключаеться
end;

Только что пробовал , работает
Может я не понел что должна делать программа но думаю я не ощибался!

[megostudent]

слушай
Вложение 42706
и возьмите во внимание что в сообщение могут выскакивать не только "1,2,3" а например слова "йцу,фыв,ячс" или всемто сообщения может идти другое действие главное чтобы сначало прошло действие, а потом прошел отчет времени (3 сек.), после отчета времени (3 сек) сделалось 2 действие (сообщение с текстом "2") и прошло 5 сек , а потом уже после 5 сек. сработало 3 действие прошло 7 сек. и все пошло опять на первое действие.
вот такой цикл. Помогите

[mss]

слушай
вот так.

ЗАЧЕМ куча таймеров ?

"Мне надо" - это не объяснение, это блажь.

Один и тот же таймер в событии своего срабатывания можно перепрограммировать на очередное срабатывание через другой требуемый интервал времени.

[megostudent]

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

"Мне надо" - это не объяснение, это блажь.

в моем понимание это как я хочу сделать, если бы это была блажь, то я бы никаких кодов сюда не прикреплял, а прямо написал бы.

привел бы пример один если так все хорошо понимаешь и я бы понял и поставил те +

[mss]

это как я хочу сделать

Вот я и спрашиваю, ЗАЧЕМ ты хочешь именно ТРИ таймера, если программирование очередной выдержки времени (т.е. запрет работы таймера. установка нужного интервала и разрешение работы таймера) для некоего таймера можно сделать прямо в его же обработчике, непосредственно перед этим сделав нужное "действие", например, "выбив" какую-нибудь "выскакивалку" - "1,2,3" или "слова "йцу,фыв,ячс" ?)

[megostudent]

я делаю с 3 таймерами потому что я не знаю как сделать это в одном(