Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перехватить ошибку TMaskEdit проверки текста 
:(
    Опции темы
SerGreY
Дата 19.3.2006, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 143
Регистрация: 18.1.2004

Репутация: нет
Всего: нет
Компонент TMaskEdit при снятии с него фокуса ввода проверяет введенный текст и, если текст введен не полностью, выдет ошибку. Как это сообщение об ошибке можно перехватить?
PM MAIL   Вверх
_hunter
Дата 20.3.2006, 12:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
маску нормальную пропиши. или простой TEdit используй
смысл с маски, если она не используектся?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Johnny_B
Дата 31.7.2007, 00:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 30.7.2007
Где: Северодонецк

Репутация: нет
Всего: нет
ап.

тоже интересует этот вопрос и дело не в том что маска не используется, дело в том что "хитрый" юзер может не до вводить параметры или же со старта бахнуть по энтеруsmile

Как обработать исключительную ситуацию EDBEditError ???
PM MAIL   Вверх
ALeXandrK
Дата 31.7.2007, 01:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 3
Всего: 6
За генерацию сообщения отвечает вот эта процедура:
Код

procedure TCustomMaskEdit.ValidateError;
begin
  MessageBeep(0);
  raise EDBEditError.CreateResFmt(@SMaskEditErr, [EditMask]);
end;


Сообщение будет содержать текст, который содержится по адресу переменной SMaskEditErr, а там лежит вот что:
Код

SMaskEditErr = 'Invalid input value.  Use escape key to abandon changes';


Самое простое, но не лучшее, я в этом уверен, это просто в модуле Consts переписать текст данного сообщения smile 

Все таки так поступать не хорошо (менять что-то в исходниках Delphi), а то новую версию поставишь и там все переписывать нужно.... это ж бред. В справке на эту тему ничего нет smile 

Есть конечно и другой способ - создать свой TMaskEdit и переписать там этот метод - но оно того не стоит....

Это сообщение отредактировал(а) ALeXandrK - 31.7.2007, 01:46


--------------------
Богат не/ни тот, у кого много, а тот, кому хватает
PM WWW   Вверх
Johnny_B
Дата 31.7.2007, 07:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 30.7.2007
Где: Северодонецк

Репутация: нет
Всего: нет
ALeXandrK, короче просто лучше наверное работать с эдитом - обрабатывать нажатия клавиш (фильтровать их) и инициализировать Каптион эдита, начальным значением - не вызывающим ошибку...

В моем случае мне надо вводить 10 цифр, не меньше... буду юзать эдит значит:(
PM MAIL   Вверх
ALeXandrK
  Дата 31.7.2007, 12:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 342
Регистрация: 31.1.2007
Где: Санкт-Петербург

Репутация: 3
Всего: 6
Легче будет сделать наследника и переписать в нем метод, вставив туда свое сообщение об ошибке, а может и нет... может edit лучше обрабатывать... тут смотри по себе - как тебе удобнее smile 
... но я тогда все-равно не совсем понимаю... ведь все Exception в программах написаны на англ., и что теперь нельзя свою программу полностю локализировать... что-то не вериться smile 

Вот что нужно сделать! smile 

Это сообщение отредактировал(а) ALeXandrK - 31.7.2007, 13:31


--------------------
Богат не/ни тот, у кого много, а тот, кому хватает
PM WWW   Вверх
Johnny_B
Дата 1.8.2007, 22:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 10
Регистрация: 30.7.2007
Где: Северодонецк

Репутация: нет
Всего: нет
Решил не морочится с МаскЭдит и сделать все на Эдит*е ... Задал длину 10 символов, обрабатываю ввод:
Код

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in ['0'..'9', chr(8)]) then Key := #0;
end;

Начальное значение десяток Х.
И обрабатываю при самой работе и обращении к Эдиту:
Код

if (length(Edit1.Text)=10)and(Edit1.Text<>'XXXXXXXXXX') then
begin end
else
MessageDlg('Повторите ввод корректно!', mtError,[mbOK],0);
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0723 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.