Как сделать повтор события?

[2010KOHTEP]

Всем добрый вечер. У меня сейчас возник довольно таки для себя интересный вопрос - как сделать повтор события через определенное время? Например я отправляю сообщение через SMTP, и мне нужно чтобы оно через 10 секунд отправилось повторно. В интернете не нашел путёвого ответа. Заранее спасибо.

[Человек_Борща]

TTimer, в интервале задаём 10000(10 сек) и в OnTimer вставляем либо:

TButton.Click; //Where TButton  это кнопка при нажатии на который шлётся письмо

либо вставляем сам код отправки письма...

[2010KOHTEP]

Человек_Борща
Когда я прописываю Tbutton. то появляется выбор функции, но самого Click нет. Было бы неплохо, если бы вы предоставили мне исходный код таймера.

[Человек_Борща]

А головой подумать, не? Когда подрастёте тоже будете просить других, думать за вас?

Я не знаю что у вас там, поэтому написал TButton т.к. это класс кнопки. Кнопка имеет метод Click, следовательно имея на форме кнопку с именем Button1, вы должны написать Button1.Click.

TTimer(компонент) лежит на вкладке System палитры компонентов.

[hon]

Вставляем на форму Timer с вкладки System.
В Object Inspector для таймера Interval пишем 10000 (10 тысяч миллисекунд=10 сек).
Кликаем дважды на OnTimer и в процедуре пишем выполняемое действие
Чтобы таймер работал должно у таймера Enabled быть в true.

[Стелс]

ну или еще вариант

while true do begin
 Button1.Click;
 Sleep(10000*60);
 end;

[hon]

Сообщение от Стелс

ну или еще вариант

while true do begin
 Button1.Click;
 Sleep(10000*60);
 end;

Только не Sleep! Sleep - количество ... таймера. Чем мощнее компьютер, тем быстрее будет работать такая программа.

[FaTaL]

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

Только не Sleep! Sleep - количество ... таймера. Чем мощнее компьютер, тем быстрее будет работать такая программа.

Sleep как раз задержка в миллисекундах и от мощности компьютера не зависит.

[mihali4]

Sleep pauses program executions as specified by the milliseconds parameter.

То есть, в отличие от таймера, который работает самостоятельно, Sleep напрочь останавливает выполнение программы...

[bulldog5293]

То есть, в отличие от таймера, который работает самостоятельно, Sleep напрочь останавливает выполнение программы...

Если использовать крит секцию в sleep то программа дальше будет жить, а ход програмы продолжится когда sleep её отпустит