Показать сообщение отдельно
  #14  
Старый 24.09.2013, 20:51
Аватар для Alegun
Alegun Alegun вне форума
LMD-DML
 
Регистрация: 12.07.2009
Адрес: Богородское
Сообщения: 3,025
Версия Delphi: D7E
Репутация: 1834
По умолчанию

Возник вопрос - Lat1 это точно MaskEdit?

(собираю вместе всю инфу из постов)
Если оно, то попробуйте так - установите свойство CharCase в UpperCase, затем задайте свойство EditMask как !90-00.0>L;1;_ (в диалоге в поле Input Mask забейте !90-00.0>L, там же сразу можно и проверить ввод в поле Test input) дальше, задайте Lat1KeyPress как из 5й мессаги, уже должно быть следующее - в эдит кроме цифр и двух знаков ничего больше не вводится. Ну а в конце подключайте вашу процедуру чейнджа, с проверками на соответствие вводимых данных, и ... должно заработать правильно
Ответить с цитированием