|
#1
|
|||
|
|||
Timer
Timer->Enabled=true; //вкл
Timer->Enabled=false//выкл вот не знаю как на кнопку поставить??? включу Timer->Enabled=true; //вкл, поставлю interval:=????? а как сделать чтоб он повторял это всё бесконечное количество раз?? |
#2
|
||||
|
||||
для события onTimer
Timer1.Enabled:=true; <операторы> |
#3
|
|||
|
|||
Цитата:
|
#4
|
||||
|
||||
сформулируй задачу, что конкретно тебе надо написать
|
#5
|
|||
|
|||
2
Мне нужно сделать на кнопке таймер 11 секунд, чтоб после 11 секунд из edit любого отправлялось смс , потом опять остановка 11 секунд из edit смс ,и так бесконечно пока не остановиш сам это.. вот такое мне нужно )))
|
#6
|
|||
|
|||
Как вариант:
Код:
procedure TForm1.FormCreate(Sender: TObject); begin Timer1.Enabled:=false; Timer1.Interval:=11000; end; //Событие таймера: Отправка по таймеру procedure TForm1.Timer1Timer(Sender: TObject); begin Timer1.Enabled:=false; if TextSend then begin edtTEXT.Text:=''; end else begin if length(trim(edtTEXT.Text))>0 then begin Timer1.Enabled:=true; end; end; end; //Отправить SMS procedure TForm1.btn_SENDClick(Sender: TObject); begin if TextSend then begin edtTEXT.Text:=''; //если сообщение отправлено end else begin if length(trim(edtTEXT.Text))>0 then begin Timer1.Enabled:=true; //если сообщение НЕ отправлено сразу, то по таймеру end; end; end; //Остановить отправку SMS (по таймеру) procedure TForm1.btn_STOPClick(Sender: TObject); begin Timer1.Enabled:=false; end; //Отправка SMS function TextSend : boolean; begin Result:=false; if length(trim(edtTEXT.Text))>0 then begin if ... then begin Result:=true; ... ... //edtTEXT.Text:=''; end; end; end; |