Назначение BindEvent() - это выполнить метод-делегат, при выполнении события-источника. Он не перехватывает события, а "дополняет" код выполнение события некоторым дополнительным кодом. При этом, Вы никак, никоим образом, не можете влиять на факт выполнения события-источника (события-триггера). Он будет выполнен в любом случае.

Флаги 2 и 3 - это блокирование выполнения метода-делегата, если событие-источник было вызвано программно. Но блокирование именно делегата, а не источника!

Если Вы программно меняете "видимые" (отображаемые на форме) свойства объектов, например, top, enable, label, то следует иметь в виду, что эти изменения вступят в силу только по окончании выполнения Вашего метода. Дело в том, что отрисовка формы - это тоже некоторое событие, которое ставится в стек событий и ждет своей очереди на исполнение. Если визуально отобразить изменения надо немедленно, то следует использовать команду DoEvents




Для блокирования входа в объект можно использовать метод When. Если он вернет .F., то вход в объект блокируется. Можно попробовать написать в этом методе что-то вроде

Можно воспользоваться таким приемом:

На форму кладется TextBox вне области видимости. Например, top = -100, left = -100. В случае необходимости, фокус программно переводится на этот объект. ThisForm.TextBox1.setFocus(). Для пользователя это будет выглядеть так, как будто фокус был убран с любого объекта формы.

С объектом ctTree от DBI не работал, поэтому только общая идея.

При выходе из узла дерева, "взвести флаг". Затем при выборе нового узла проверить факт "взведения флага" и если это есть, то сбросить флаг и перейти на старый узел. Разумеется, будет некоторое "передергивание", но результат будет нужным. Указатель вернется на исходный узел.

Хотя, сама идея запрета выхода из объекта - не корректная. Как Вы планируете форму-то закрывать, если что? Вы не можете закрыть форму, поскольку нельзя покинуть объект, а объект Вы покинуть не можете, поскольку не знаете, что в него надо ввести. Тупик!

Как правило, из объекта все-таки дают выйти, но если значение не корректное, то как-то "подсвечивают" объект. Ну, там контрастным фоном или рамочкой. Кроме того дублирую контроль на кнопку "Сохранить", где и сообщают "человеческими словами" в чем ошибка и что надо исправить. Т.е. если ввели не корректное значение, то форму закрыть можно, просто значения либо не сохраняются, либо сохраняются, но с признаком не достоверности.

Добавьте в свою таблицу дополнительное логическое поле, смысл которого, "Данные корректны".

Т.е. пользователь может что угодно вводить или НЕ вводить, но пока не будут заполнены все поля обязательные к заполнению, причем корректно заполнены, поле-флаг не изменит своего значения. Соответственно, использовать в работе можно только те записи, у которых установлен этот самый признак о корректности и непротиворечивости данных. Для дерева, вероятно, дополнительным условием является корректность всех узлов-родителей на любом уровне.

При такой организации работы Вы становитесь независимы от интерфейса и у Вас полностью "развязаны руки" Пользователь вводит что угодно и как угодно, просто часть введенных данных в программе не используется. Мусор, так в виде мусора и хранится (специальная меточка висит - это мусор ) и никак не влияет на приложение.

Можно вместо дополнительного поля использовать дополнительную таблицу. Т.е. не до конца введенные данные физически хранятся в другой (буферной) таблице. После прохождения всех проверок копируются в "окончательную" таблицу. Хотя, конечно, организационно это значительно сложнее, ведь в этом случае нужен двусторонний обмен. Записи из постоянной таблицы могут оказаться в буферной, если пользователь что-то не корректно исправил. Но здесь можно запретить изменять ряд полей после создания окончательного варианта записей.

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

PS: Также есть вариант организации древовидной структуры на основе объекта Grid http://www.foxclub.ru/sol/solution668.php
Вот здесь картинка, как это выглядит http://forum.foxclub.ru/read.php?29,370548,475187#msg-475187