Програмное изменение свойства MDIChild

[Чудик]

Есть дочерняя форма и форма MDI. Необходимо програмно перевести дочернюю форму в независемую. При простом изменении свойства MDIChild=False выскакивает ошибка. Что делать?

[xolod]

Ничего, поменять Child на неChild в runtime не получится

[Ennor]

Может, SetWindowLong() поможет? Хотя конкретно эту задачу я с его помощью ни разу не решал - не было нужды, признаться...

[Konst_One]

вряд ли это вообще возможно, данный атрибут ставиться в момент создания окна через CreateWindowEx

[GSerg]

Угу.
.NET решает этот вопрос путём создания копии...

[Чудик]

А разве нельзя в VB6 создать копию окна? Только в таком случае (для копии) выдается также ошибка на mdiChild=False.
И вообще-то не хочется верить, что этого нельзя сделать - сильно нужно ...

Может, SetWindowLong() поможет? Хотя конкретно эту задачу я с его помощью ни разу не решал - не было нужды, признаться...

Посмотрел на функцию, но не разобрался. API у меня всегда трудности вызывают. Заранее, конечно, объявил функции и сделал так:
h = GetTopWindow(hwnd)
hh = SetWindowLong(h, a, b)
но, какие константы вместо a и b взять, чтоб mdiChild поменять не нашел...

[Ennor]

Это не так делается.

Сначала ты вытягиваешь текущие атрибуты окна через GetWindowLong(). Потом добавляешь (или убираешь - зависит от конкретной задачи) нужные битовые флаги, и устанавливаешь эту маску стилей окна через SetWindowLong(). Я себе так сбрасывал в рантайме атрибут ShowInTaskbar, правда, код не сохранился.

[edit]Мое чутье меня не обмануло:

WS_EX_MDICHILD - Creates an MDI child window.

Единственное - винда может заартачиться менять этот атрибут. В смысле, просто будет игнорировать посланное. Тут, боюсь, придется шаманить... [/edit]

[Чудик]

В качестве эксперимента над функцией я пошел по пути, пока более понятного мне (так как я не знаю как убирать битовые стили, решил наоборот добавить - из простой формы сделать дочернюю). Правда в одной умной книжке вычитал, что при WS_EX_MDICHILD окно имеет уменьшенный заголовок и не отображается в панели задач, т.е не совсем то, что надо, зато при WS_CHILD окно является дочерним.
Написал код так:
Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32.dll" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function GetTopWindow Lib "user32.dll" (ByVal hwnd As Long) As Long
Private Const WS_CHILD As Long = &H40000000
Private Const WS_EX_MDICHILD As Long = &H40&
Private Const GWL_STYLE As Long = -16
Private Const WS_VSCROLL As Long = &H200000

Private Sub Command1_Click()
hh& = GetWindowLong(Form2.hwnd, GWL_STYLE)
hh& = hh& Or WS_CHILD
hhh& = SetWindowLong(Form2.hwnd, GWL_STYLE, hh&)

Form2.Refresh
End Sub

Private Sub Form_Load()
Form2.Show
End Sub

WS_CHILD я заменял на WS_EX_MDICHILD - в обоих случаях никаких изменений. В то время как при WS_VSCROLL изменения имели место и полоса прокрутки появлялась, хотя для этого необходимо было сначала свернуть, а потом развернуть форму снова (это не смотря на наличие refresh).
Так что я подошел, понимаю, к тому моменту, который относиться к шаманству, но как это осуществить не знаю- не имею необходимого уровня. Нужны подсказки.
А также буду признателен, если кто-то объяснит мне как можно убирать битовые стили в API функциях.

[tyomitch]

А также буду признателен, если кто-то объяснит мне как можно убирать битовые стили в API функциях.

Код: Выделить всё

SetWindowLong hWnd, GWL_STYLE, GetWindowLong (hWnd, GWL_STYLE) And Not WS_VSCROLL

Ещё, ты догадался, что для WS_EX_MDICHILD вместо GWL_STYLE надо использовать GWL_EXSTYLE? Но имхо всё равно не сработает

[Sebas]

Стиль окна поменять после создания нельзя.

VB.NET создаёт новое окно, поэтому хендл будет другим.

[Чудик]

Да, что-то не получается ...
Обидно ... Эх!
Спасибо всем.