| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TMaskEdit [D5, NT4]
Georg © (2002-07-15 15:49:00)Доброго времени суток! Подскажите плз, как можно заменить пробелы в MaskEdit на нули, когда фокус переходит на другой элемент. Пытался проверять в OnExit, но до него вызывается другое событие и выскакивает сообщение "Неверное время". Как бы мне его опередить?
Заранее спасибо.
Andrey007 (2002-07-15 16:43:00) [1]На OnChange надо повесить такой обработчик:
with Sender as TMaskEdit do if Text=sEmptyTime then Modified:=False;
где sEmptyTime - константа строкового типа, например " : ".
valery_f (2002-07-15 16:28:00) [2]> до него вызывается другое событие
Никакого другого события нет. MaskEdit, получая сообщение о потере фокуса, первым делом проверяет текст на соответствие маске (и если что - свистит), и только если все в порядке - зовет OnExit (см. сорцы). Можно так - сразу задать значение в св-во Text "00:00", а контроль на пробелы - в OnChange. Не слишком красиво, но зато просто :) А посложнее, к примеру, - сделать наследника TMaskEdit и перебить procedure CMExit на свой лад:
procedure TCustomMaskEdit.CMExit(var Message: TCMExit);
begin
//позвать свое событие, что-то типа OnBeforeExit
//на предмет заполнения отсутствующих кусков текста
inherited;
end;
| |
