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

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

Исключения [D6, Win2k]


Explorer ©   (2002-10-17 10:25:00) 

Мастера!
Подскажите, как обработать исключение (EDBEditError)в MaskEdit"е
(маска "!00_00"), на заполнение всех обязательных 4 цифр?


Explorer   (2002-10-18 06:13:00) [1]

>Dm9 ©
Спасибо большое! то, что доктор прописал!!!

С уважением, Володя.


Dm9   (2002-10-17 16:40:00) [2]

Кладёшь на форму TApplicationEvents (вкладка Additional), обрабатываешь событие onException:

procedure TForm1.ApplicationEvents1Exception(Sender: TObject;
E: Exception);
begin
if E.ClassName = "EDBEditError"
then ShowMessage ("Invalid user at the computer!");
end;


TTCustomDelphiMaster   (2002-10-17 16:08:00) [3]

Пишите потомка и перекрывайте метод ValidateEdit


Explorer   (2002-10-17 16:07:00) [4]

Всем большое спасибо! :))


Explorer   (2002-10-17 14:06:00) [5]

Ладно... покапаюсь...


Explorer   (2002-10-17 12:23:00) [6]

Никто помочь не может? :((


Explorer   (2002-10-17 10:39:00) [7]

А почему !99_99, если мне надо, что бы, были цифры или ничего?


ZrenBy   (2002-10-17 10:34:00) [8]

Поставь !99_99 и проверяй onExit


Наверх

Титульная страница Поиск, карта сайта Написать письмо