ВладимирМ1. В столбец Grid необходимо добавить нужные объекты. По умолчанию, если добавляется CheckBox, то его имя будет CheckBox1
Как в дизайнере вставить объект в столбец Grid
2. Создаете новый метод формы. С именем, например, "SelectedControl"
3. В созданном методе пишите пока что одну строчку
4. В свойстве DynamicCurrentControl указываете в качестве значения вызов этого нового метода ThisForm.SelectedControl(). Если это происходит в дизайнере в окне Properties, то обрамлять кавычками не надо. Если присвоение происходит программно в коде какого-либо метода, то обязательно следует обрамить кавычками
thisform.Grid1.Column1.DynamicCurrentControl = "ThisForm.SelectedControl()"
Если это все заработало, то потом останется только записать в методе SelectedControl() алгоритм выбора
имени нужного объекта
Замечание
В младших версиях FoxPro иногда вызов метода следовало предварять знаком равенства, как признаком того, что далее идет вызов некой функции.
thisform.Grid1.Column1.DynamicCurrentControl = "=ThisForm.SelectedControl()"
однако в VFP9 этого, как правило, не требуется
Большое спасибо за развернутый пример. Но у меня не все получилось.
В событии Click обоих Checkbox пишу
thisform.checkstate = this.Value && checkstate - заданное мною св-во формы
, в теле предложенного Вами метода пишу
1.
2.
3.
4.
5.
6.
LOCAL lcCheckBoxName as String
* CheckOn, CheckOff - имена Checkbox-ов
lcCheckBoxName = IIF(thisform.checkstate, "CheckOn", "CheckOff")
RETURN lcCheckBoxName
и ничего не происходит.
Пробовал несколько похожих вариантов. Догадываюсь, что дело в условии, по которому должны выбираться контролы. Но как еще его составить, если к столбцу не привязано поле да и другие поля не позволяют такое условие описать?
Похоже самый первый вариант (с полем в столбце) есть и самый рабочий.
Кстати, почему-то именно такой формат записи
thisform.Grid1.Column1.DynamicCurrentControl = "=ThisForm.SelectedControl()"
(так, немного экспериментировал) заработал у меня, хотя использую VFP9 SP2.
