Modal window

[Unknown_Error]

Hi everybody!
Народ, а кто знает как сделать, что бы форма2 вызываемая из формы формы1 была всегда поверх нее? Но не модальной!

[RayShade]

Есть такое API SetWindowPos. Описание в MSDN найти можно.

[gaidar]

Если с памятью все еще ок, то код таков.

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

Private 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)

Private Sub SetTopMost(frm As Form)
    SetWindowPos frm.hWnd, -1, 0, 0, 0, 0, &H10 Or &H40 Or &H1 Or &H2
End Sub

Private Sub SetNormal(frm As Form)
    SetWindowPos frm.hWnd, -2, 0, 0, 0, 0, &H10 Or &H40 Or &H1 Or &H2
End Sub


[Unknown_Error]

Спосибо, но я уже разобрался!