:) Привет, Oxygene. Свойства TitleBar = 0, BorderStyle = 0 не меняют ситуацию (в коллекции окон) - просто становятся недоступными кнопки заголовка дочернего окна. Ставим в него кнопку закрытия и все.
Немного о другом - если форма встраивается в модальную форму, то и она (в фоксе во всяком случае) "наследует модальность", чтобы не разрушать цепочку вызовов.
Можно конечно программно активировать одну модальную форму из другой, но последствия этого не предсказуемы.
Может имеет смысл пересмотреть интерфейс :)
Кстати в этом случае поведение вызовов Show .. In .. и Set Parent .. отличаются:
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.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
With Createobject("frmMain")
.Show( 1 )
Endwith
Define Class frmMain As Form
Caption = "Мама"
Width = 400
Height = 200
oChild = .Null. && ссылка на дочь
Add Object Command1 As CommandButton With ;
top = 10 ,;
left = 10 ,;
Width = 150 ,;
Height = 30 ,;
Caption = "Show In ..",;
Visible = .T.
Add Object Command2 As CommandButton With ;
top = 10 ,;
left = Thisform.Command1.Width + 20 ,;
Width = 150 ,;
Height = 30 ,;
Caption = "Set Parent ..",;
Visible = .T.
Procedure Command1.Click()
If Type("Thisform.oChild")="O" And !Isnull(Thisform.oChild)
Activate Window (Thisform.oChild.Name)
Else
Thisform.oChild = Createobject("frmChild", Thisform)
Show Window (Thisform.oChild.Name) In Window (Thisform.Name)
Endif
Procedure Command2.Click()
If Type("Thisform.oChild")="O" And !Isnull(Thisform.oChild)
Activate Window (Thisform.oChild.Name)
Else
Thisform.oChild = Createobject("frmChild", Thisform)
Show Window (Thisform.oChild.Name)
Declare Integer SetParent In User32.Dll As SetParent Integer, Integer
SetParent(Thisform.oChild.HWnd, Thisform.HWnd)
ENDIF
Enddefine
Define Class frmChild As Form
*****************************
oParent = .Null. && ссылка на маму
Caption = "Дочь"
Top = 60
Left = 10
Width = 350
Height = 100
TitleBar = 0
BorderStyle = 0
Add Object Text1 As TextBox With ;
top = 10 ,;
left = 10 ,;
value = "111",;
Visible = .T.
Add Object Text2 As TextBox With ;
top = 10 ,;
Left = Thisform.Text1.Width + 20 ,;
value = "222",;
Visible = .T.
** Для закрытия дочерней формы
Add Object Command1 As CommandButton With ;
top = 50 ,;
left = 10 ,;
Width = 150 ,;
Height = 30 ,;
Caption = "Закрой меня ..",;
Visible = .T.
** Для активации материнской формы
Add Object Command2 As CommandButton With ;
top = 50 ,;
left = 180 ,;
Width = 150 ,;
Height = 30 ,;
Caption = "Ой, мамочки ..",;
Visible = .T.
Procedure Command1.Click()
Thisform.Release
Procedure Command2.Click()
Activate Window (Thisform.oParent.Name)
Procedure Init
Lparameters m.toParent
Thisform.oParent = m.toParent
Enddefine
