Узнать как открыта ли форма как модальная.

[Worobjoff]

?
Пробовал через GetWindowPos - не получается. Все время .Flags=0

[BV]

Ты же её открывал, ты и знаешь.

[Konst_One]

GetWindowLong и использовать расширенный набор маски параметров

[tyomitch]

Konst_One, не верю.
Дашь код?

[Konst_One]

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

Public Const WS_EX_DLGMODALFRAME = &H1&
Public Const WS_EX_TOPMOST = &H8&

Public Const GWL_EXSTYLE = (-20)

curstyle = GetWindowLong(NumberText.hwnd, GWL_EXSTYLE)
...

[tyomitch]

Как это связано с модальностью?

[Konst_One]

WS_EX_DLGMODALFRAME - вот это

[Konst_One]

да, похоже, что с vbmodal - это никак не связано, сорри

[Konst_One]

если нет WS_EX_APP_WINDOW, то это модальное окно

[Konst_One]

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

Public Const WS_EX_APP_WINDOW = &H40000
Public Const GWL_EXSTYLE = (-20)
Public Const GWL_STYLE = (-16)
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
'
'
Private Sub Form_Load()
Dim curstyle As Long

curstyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
If curstyle And WS_EX_APP_WINDOW Then
    Debug."non modal"
Else
    Debug.Print "modal"
End If
End Sub

[tyomitch]

если нет WS_EX_APPWINDOW, то это окно с ShowInTaskbar = False

проверил твой код: всегда выдаёт "non modal"

[Konst_One]

ничего подобного, это признак немодальности

[Konst_One]

проверено, мин нет

[tyomitch]

Konst_One, проверь свой код сам!!

[tyomitch]

Ну ептыть, мне сюда проект из двух форм, что ли, зааттачить?
Ну сунь ты сам свой код в одну из форм, из другой покажи первую модально, и зацени результат

[Konst_One]

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

'Form1
Option Explicit

Private Sub Command1_Click()
Form2.Show vbModal, Me
End Sub

Private Sub Command2_Click()
Form2.Show vbModeless, Me
End Sub

'Form2
Option Explicit
Private Sub Form_Click()
Dim curstyle As Long

curstyle = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
If curstyle And WS_EX_APP_WINDOW Then
    Print "non modal"
Else
    Print "modal"
End If

End Sub

попробуй еще разок

[Konst_One]

у меня все работает как надо
ЗЫ
ShowInTaskbar=True у всех

[tyomitch]

А без ", Me"

[Konst_One]

а вот это мы пока пропустим
подумать надо

[Konst_One]

и без Me работает, а в чем у тебя проблема?

[tyomitch]

В Form_Load, как в твоём первом коде -- не работает. В Form_Click - вроде как работает

[tyomitch]

Если у Form2 выставлен ShowInTaskbar=False, то не работает даже в Form_Click

[Konst_One]

со всеми другими произвольными стилями для окна - также работает как надо.

так что, результат налицо - МОЖНО юзать

[tyomitch]

МОЖНО юзать только для тех форм, у которых ShowInTaskbar=True.

[Konst_One]

Если у Form2 выставлен ShowInTaskbar=False, то не работает даже в Form_Click

Да, не проверил до конца
Этот вариант не работает.

[Konst_One]

Что-то ничего на ум не приходит. Очень странно, но в таком режиме пока никак не пойму, как можно определить модальность.

[tyomitch]

Да никак не можно, в общем случае. Модальность - не свойство окна, это свойство проги целиком.

[Worobjoff]

Спасибо за внимание вопросу.
В общем понял.
Ну не так и много крови будет это стоить если форма не знает как она вызвана (в уже написанной программе).