| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Странная ошибка [D7, XP]

Страницы:   < 1 2 >

Quadro ©   (2005-11-25 14:30:00) 

Добрый день ещё раз!.....столкнулся с такой проблемой...есть маска времени...есть обработчик нажатия клавиши..
procedure TForm1.TimeOutKeyPress(Sender: TObject; var Key: Char);
begin
if (Key = #13) and (TimeOut.Text '') then
 begin
   try
     StrToTime(TimeOut.Text);
     TimeOut.Enabled:=False;
   except
     on EConvertError do
       begin
         MessageDlg('Íåâåðíî çàäàíî âðåìÿ ðàçîãðåâà!',mtWarning,[mbOk],0);
         Exit;
       end;
   end;
 end;
end;
Если намерено ввожу неверное время то,выскакивает окно предупреждения 'Íåâåðíî çàäàíî âðåìÿ ðàçîãðåâà!' и следом за ним окно с таинственной надписью  Invalid input value. Use escape key to abandon changes....не могу понять в чём же дело....настройка маски - !90:00;1;_

---

Quadro   (2005-11-25 14:46:00) [21]

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

---

Reindeer Moss Eater   (2005-11-25 14:45:00) [22]

что же маску не устраивает??

Маску устраивает все.
Недовольной остается  только StrToTime.

---

Reindeer Moss Eater   (2005-11-25 14:43:00) [23]

Ты же сказал, что
...Если намереноввожу неверноевремя то,выскакивает

---

Quadro   (2005-11-25 14:40:00) [24]

так вот я и спрашиваю,что же маску не устраивает??если Вам не трудно,не могли бы вы меня просветить?

---

umbra   (2005-11-25 14:35:00) [25]

а в чем дело? все идет по плану. значала вылетает Ваше предупреждение, а затем предупреждение от MaskEdit(если Вы используете его)

---

Страницы:   < 1 2 >

Наверх