И чего не заглянул раньше?
Путем размышлений пришел почти к такому же решению, как и apanko. Только не Контрол, а глобальную переменную ActiveForm.
На триггере OnActivateForm() строка ActiveForm :=TRUE; а на триггере OnDeactivateForm() - ActiveForm :=FALSE;
На каждой субформе функция retActiveForm() : Boolean со строкой EXIT(ActiveForm);
А на нажатие кнопки повесил проверку
IF CurrForm.sub31.FORM.retActiveForm() = TRUE THEN //дальше ваш код