Содержит номер выбранного в данный момент элемента управления. Включена для совместимости с предыдущими версиями. Используйте вместо нее свойство ActiveControl.
Синтаксис:
_CUROBJ = nControlNumber
Параметры:
nControlNumber
Задает номер выбираемого элемента управления.
Комментарии:
В Visual FoxPro вы можете использовать _CUROBJ, чтобы определить выбранный в данный момент элемент управления для экранов, преобразованных из предыдущих версий FoxPro.
Вы можете возвратить значение из переменной _CUROBJ, чтобы определить, какой элемент управления выбран, или можете сохранить значение в переменной _CUROBJ, чтобы выбрать конкретный элемент управления.
Номера элементов управления определяются порядком их создания.
Пример:
* В следующем примере показано, как нумеруются элементы управления и * как использовать переменную _CUROBJ для получения номера текущего * элемента управления. Чтобы перейти к другому элементу управления, * используйте клавишу Tab или клавиши перемещения; номер текущего * элемента управления отображается при нажатии клавиши F2. CLEAR SET TALK OFF STORE 1 to gnX, gnY, gnZ ON KEY LABEL F2 @ 12,2 SAY 'Object # ' + STR(_CUROBJ) && Show # @ 4,2 GET gnX PICTURE '@*R \<Apples;\<Oranges;\<Limes' && Radio @ 2,2 GET gnY && Get field @ 8,2 GET gnZ PICTURE '@^ \<Pears;\<Bananas;\<Pineapples' && Popup READ CYCLE ON KEY LABEL F2 && Reset F2 key to default SET TALK ON