Модальность окна

[Vovik]

Подскажите пожалуйста, как сделать одно окно модальным относительно другого с помощью API. Написал товарищам библиотеку, в ф-цию которой передается объект (ессно форму пытаюсь отправить) и там уже .show vbmodal, frmowner. В Win7 вываливает ошибка Run-time err 377 This interaction between compiled and design environment components is not supported.

[Rody66]

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

Public Declare Sub SetWindowPos Lib "user32" _
    (ByVal hwnd As Long, ByVal hWndInsertAfter _
        As Long, ByVal x As Long, ByVal y As Long, _
            ByVal cx As Long, ByVal cy As Long, _
                ByVal wFlags As Long)


SetWindowPos Me.hwnd, frmOwner.hwnd, Me.Left, Me.Top, Me.Width, Me.Height, 0

А у хр с win 7, если речь идет о .show vbmodal, frmowner, то разницы нет. Насколько мне известно, и там, и там прекрасно работает.

[Хакер]

Rody66, не нужно постить многократно дрянной код.
Начиная тем, что он даже близко не делает никакой модальности (а просто прячет одно окно под другой, меняет порядок, то есть) и заканчивая тем, что функция принимает размеры в пикселях, а ты передаёшь размеры в твипах.

[Rody66]

функция принимает размеры в пикселях, а ты передаёшь размеры в твипах.

Это верно.

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

SetWindowPos Me.hwnd, frmOwner.hwnd, Me.Left  \ Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0

Начиная тем, что он даже близко не делает никакой модальности

В таком случае, имеется вариант слегка извратиться и реализовать что-то типа псевдомодальности.
А именно:
Форма-родитель:

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

Me.Enabled = False
frmChild.Show

Дочерняя форма, событие Load:

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

SetWindowPos Me.hwnd, frmOwner.hwnd, Me.Left  \ Screen.TwipsPerPixelX, Me.Top \ Screen.TwipsPerPixelY, Me.Width \ Screen.TwipsPerPixelX, Me.Height \ Screen.TwipsPerPixelY, 0

;Событие Unload:

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

frmOwner.Enabled = True

[Vovik]

Ну это не совсем то.... ошибка вываливает как раз при попытке передать через объект форму в dll. Решил передать хэндл окна и показать форму из библы модальную к форме с полученным хэндлом. Вот и стал вопрос... а SetWindowPos - пробоал сразу, но эт немного не то, что мне нужно.

[Vovik]

Что же делать? Может подскажите другое решение.... не могу ничего придумать. На ХР отлично работает.. А вот с 7 - трабл

[Хакер]

Блин, человек 11 дней мучался, кряхтел...
Я вставил описание ошибки в поиск и нашёл статью.

На уровне генов что-ли заложено неиспользование поиска?

[Vovik]

Блин, человек 11 дней мучался, кряхтел...
Я вставил описание ошибки в поиск и нашёл статью.

На уровне генов что-ли заложено неиспользование поиска?

Самое печальное, что это я читал и это - не решение... Я не могу отказаться от передачи, либо объекта, либо хэндла... форма должна быть в длл и модальна относительно отображаемого окна....

[Хакер]

Лол. Тёмыча взывает. Ну взывай дальше, до посинения...

Сделай интерфейс IVovikForm, сделай такую TLB-шку. Потом имплементируй этот интерфейс в форме и передавай X As IVovikForm, а не x As Form.

И работай полностью через этот интерфейс.

[Vovik]

Лол. Тёмыча взывает. Ну взывай дальше, до посинения...

Сделай интерфейс IVovikForm, сделай такую TLB-шку. Потом имплементируй этот интерфейс в форме и передавай X As IVovikForm, а не x As Form.

И работай полностью через этот интерфейс.

Большое спасибо за идею!!!