|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#16
|
||||
|
||||
Кидаешь Edit и процедуру
Код:
procedure TForm1.btn1Click(Sender: TObject); begin Tmr1.Interval:= d; // интервал Tmr1.Enabled:= Not(Tmr1.Enabled); // вкл / выкл end; меняем на Код:
procedure TForm1.btn1Click(Sender: TObject); begin d := StrToInt(Edit1.Text) * 1000; //Время в таймере в милисекундах, а мы переводим в секунды Tmr1.Interval := d; // интервал Tmr1.Enabled := not(Tmr1.Enabled); // вкл / выкл end; Как-то так. p.s. Цитата:
Итерация от человека. Рекурсия — от Бога.
Последний раз редактировалось Dem0Men, 15.07.2011 в 17:17. |