CftClub.ru

[Volod]

Понадобилось вызвать Msgbox из Onfocus.

[r00st]

Ну какой же это баг? Скорее, "пасхальное яйцо"

По делу: возможно, 11 связано с количеством контролов на форме?

[ALEX_DV]

11 это предел безумия. С контролами точно не связано.

1. Если есть необходимость валидировать поле через OnFocus с использованием MsgBox, то используйте ветку для bSet=false (выход из поля). В этом случае MsgBox будет точно один раз и после нажатия OK в MsgBox'е, фокус из поля перейдет на след. контрол формы или программно можете вернуть в тоже поле.

2. Если использовать MsgBox в теле функции OnFocus, то он логично будет вылезать два раза. При входе в поле вызовется OnFocus(True) - вход в поле. MsgBox попал в стек. Т.к. вызван MsgBox, то поле теряет фокус и тут же срабатывает OnFocus(False), который в свою очередь вызывает ещё раз MsgBox. На экране мы видим сперва ВТОРОЙ MsgBox, потом ПЕРВЫЙ.
И только после этого фокус переходит на след контрол формы.

3. Вызов MsgBox в ветке bSet=true почему-то приводит к зацикливанию. Почему 11 итераций, а не 666, трудно сказать. Есть мысли, но оставлю их при себе.

Если вам нужно перехватить именно вход в контрол, то нужно думать ) Может как-то изменить логику обработки задачи в целом.

[Volod]

Спасибо, это нюансы я знаю, и вопрос был именно про фокус = TRUE. Хотел сначала выяснить у общественности. Буду обращаться в ЦФТ.

[ALEX_DV]

ЦФТ ответил?

[Volod]