Цитата:
|
Сообщение от lmikle
И в чем проблема?
Код:
Timer1.Interval := StrToInt(Edit1.Text);
можно в OnKeyPress, кстати, там же можно заблокировать нецифровые символы, что бы ошибка конвертации не вылезала (только еще не забудь проверять на пустую строку). |
Я бы так сделал:
Код:
Timer.Interval:=StrToIntDef(Edit.Text, 1000);
Edit.Text:=IntToStr(Timer.Interval);
Если ввели не числовое значение, то запишет секунду и выведет это значение в Edit |