ВладимирМПаш, ты не понимаешь. Речь идет о FormSet, а не об одиночной форме. В данном случае форма - это не объект-контейнер верхнего уровня (у него действительно можно менять Name), а
вложенный объект. У таких объектов свойство Name - Read Only. Разумеется, когда речь идет о классах.
Чтобы было понятно о чем речь - положи на обычный класс формы любой объект. Создай собственно форму от этого класса или класс-наследник. А теперь попробуй в любом методе этой созданной формы изменить свойство Name вложенного объекта. Получишь "облом", поскольку недопустимо из класса-наследника менять некоторые свойства вложенных объектов созданных в родителе.
В отношении FormSet то же самое касается входящих в него форм. Изменить свойство Name можно только у самого FormSet, как контейнера верхнего уровня, но не у вложенных в него объектов. Ведь "вложены" они были не у него, а у его родителя.
Так-с, проверяем (что-то я не понимаю), вроде все предложенные условия выполнены.
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
PUBLIC ofs
* формсет
ofs = CREATEOBJECT('MyFormset')
* показываем пару форм
WITH ofs
.show()
.forms( 1 ).show()
.forms( 2 ).show()
.forms( 2 ).AutoCenter = .t.
ENDWITH
define CLASS MyFormSet as FormSet
PROCEDURE init
* вложили пару форм в формсет в классе
this.addobject('form1','MyForm')
this.addobject('form2','MyForm')
ENDPROC
ENDDEFINE
DEFINE CLASS MyForm as Form
PROCEDURE init
WITH this
.addobject('cmd','MyCmd')
.cmd.visible = .t.
.cmd.top = 50
.cmd.left = 100
ENDWITH
ENDPROC
ENDDEFINE
DEFINE CLASS MyCmd as CommandButton
Caption = 'Click Me'
PROCEDURE click()
LOCAL ofsl
? 'вот ссылка на FormSet'
m.ofsl = this.Parent.parent
? 'Вот имя первой формы СТАРОЕ'
? 'First Name = ' + m.ofsl.forms( 1 ).Name
? 'Меняем имя первой формы НОВОЕ'
m.ofsl.forms( 1 ).Name = 'MyFormNEW'
? 'Вот имя стало'
? 'Second Name = ' + m.ofsl.forms( 1 ).Name
* Здесь меняем имя самой кнопки
? '--------'
? 'Меняем имя самой кнопки'
? 'Имя кнопки старое' + this.Name
this.Name = 'NameCmdNew'
? 'Имя кнопки новое ' + this.Name
ENDPROC
ENDDEFINE
