Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=711551 Tue, 10 May 2005 18:59:20 +0000 Как узнать есть ли активная форма в MDI https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=711551 Shedy Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=711473 Tue, 10 May 2005 17:44:45 +0000 Как узнать есть ли активная форма в MDI https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=711473 Shedy, можно проще, без апи, вот пример:]]> Dr._S Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=711155 Tue, 10 May 2005 11:43:24 +0000 Как узнать есть ли активная форма в MDI https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=711155
Добавлено
Необходимые объявления АПИ
    Private Const GW_CHILD = 5
    Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
    Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
    Private Const WM_MDIGETACTIVE = &H229


Вызов:
    Dim hwndChild  As Long
    hwndChild = SendMessage(GetWindow(Me.hwnd, GW_CHILD), WM_MDIGETACTIVE, 0, 0)


hwndChild - хэндл активного дочернего MDI-окна.
Если 0 - активного окна нету.]]> Vasya2000 Visual Basic: Общие вопросы https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=708543 Sat, 07 May 2005 09:46:55 +0000 Как узнать есть ли активная форма в MDI https://forum.sources.ru/index.php?showtopic=94195&view=findpost&p=708543 Shedy Visual Basic: Общие вопросы