Корректный выход из DTPicker_LostFocus

[Osteon]

Здравствуйте, уважаемый форумчане!

На форме имеем два DTPicker - дата рождения и дата регистрации. Делаю проверку от некорректного ввода даты в процедуре LostFocus первого пикера:
Конструкция
If
- если дата рождения больше даты регистрации в пикере мин. дату, выхожу из процедуры
Elseif
- если регистрируемому больше ста лет, на всякий случай спрашиваю пользователя
Endif

Когда фокус находится в первом пикере, и я нажимаю кнопку "Выход" (выгружаю форму), то автоматически отрабатывается процедура DTPicker_LostFocus, отрабатывается ветвь Elseif ... Endif

Как этого избежать, и отработать Unload Me сразу? Что-то я затупил или из-за излишков мозга, или от его отсутствия...

[ger_kar]

А почему используется событие LostFocus, а не Validate? Далее,

Когда фокус находится в первом пикере, и я нажимаю кнопку "Выход" (выгружаю форму), то автоматически отрабатывается процедура DTPicker_LostFocus, отрабатывается ветвь Elseif ... Endif

Все правильно, контрол теряет фокус, при этом, если дата не была введена корректно, то от второй даты отнимается ноль, и получается разница более 100 лет.

Как этого избежать, и отработать Unload Me сразу? Что-то я затупил или из-за излишков мозга, или от его отсутствия...

Ну тут вариантов вагон. Например при выгрузке формы устанавливать соответствующий флаг выгрузки в виде булевой переменной уровня формы и при проверке корректности ввода данных первоначально проверять этот флаг, и если он установлен пропускать все дальнейшие действия.

[Osteon]

А почему используется событие LostFocus, а не Validate?

Привык к LostFocus, а Validate даже не пробовал ни разу... Попробую...

устанавливать соответствующий флаг выгрузки в виде булевой переменной

Пожалуй, самый простой способ обойти повторную отработку Elseif ... Endif. Как-то даже в голову не пришло...

Спасибо за подсказку. Удачных дней!

[Osteon]

Validate поюзал - более функциональная функция для определенных проверок.
И снова та же закавыка - по сути, код функции LostFocus я скопировал в Validate. Если пользователь допускал ошибку в дате, я его возвращал в пикер посредством SetFocus. В Validate это же делает Cancel = True. И опять при нажатии на выход происходит Пикер_Validate, и проверка. Выйти можно, только если ввести корректную дату. Это лишние телодвижения...
Пробовал через KeyPress (If KeyAscii = 27 Then), но тогда опять лишнее нажатие клавиши Escape, затем снова на кнопку "Выход". Да и зачем пользователя заставлять лишний раз клавишу нажимать?
Пробовал булеву переменную втыкать первой строкой в код клавиши "Выход", но ведь все равно сначала происходит Validate...
В обЧем, пока застрял...

[ger_kar]

Пробовал булеву переменную втыкать первой строкой в код клавиши "Выход", но ведь все равно сначала происходит Validate...

При чем здесь клавиша выход? А если пользователь решит просто закрыть форму воспользовавшись оконным меню? Нужно использовать соответствующие события формы Form_QueryUnload или Form_Unload. И событие Validate должно всегда происходить, а уже обработка этого события будет зависеть от некоторых условий. Кстати, событием Validate в отличии от Form_LostFocus можно управлять использую свойство CausesValidation.
Установи в одном из событий Form_QueryUnload или Form_Unload флаг, а свой код в обработчике Validate обрами условием проверки флага:

Код: Выделить всё

...
If not flExit Then
    ... ' Код обработчика
End if

[Osteon]

Под "клавишей" я имел в виду командную кнопку (CommandButton), у которой .Caption="Выход". Ввел в заблуждение, извините...
Если нажать на кнопку "Выход", в любом случае сначала отработается LostFocus, (или Validate), и только потом начнет выполняться код кнопки. Если выходить через оконное меню, в любом случае пикер сначала потеряет фокус, и отработается Validate.
Другими словами, прежде, чем возникнут Form_QueryUnload или Form_Unload, пикер сначала потеряет фокус...
Или я что-то не так понимаю? Или я вообще ничего не понимаю...

[ger_kar]

Поэтому и нужно использовать Validate, а не LostFocus и у кнопки выхода надо свойство CausesValidation выставить в False, тогда при нажатии на эту кнопку событие валидации происходить не будет.

Другими словами, прежде, чем возникнут Form_QueryUnload или Form_Unload, пикер сначала потеряет фокус...

Поэтому и не нужно заморачиваться на потерю фокуса.