Как сделать окно поверх других окон, и чтоб не модальное?

[A.A.Z.]

Сабж. Например, как здесь:

[Tarik]

В General:

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

Private Declare Function 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) As Long


В процедуре:

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

'Включаем режим
SetWindowPos Me.hWnd, -1, _
Me.Left / Screen.TwipsPerPixelX, _
Me.Top / Screen.TwipsPerPixelY, _
Me.Width / Screen.TwipsPerPixelX, _
Me.Height / Screen.TwipsPerPixelY, _
&H10 Or &H40

'Выключаем режим
SetWindowPos Me.hWnd, -2, _
Me.Left / Screen.TwipsPerPixelX, _
Me.Top / Screen.TwipsPerPixelY, _
Me.Width / Screen.TwipsPerPixelX, _
Me.Height / Screen.TwipsPerPixelY, _
&H10 Or &H40


[X-BOND]

Можно преспокойно заменить всякие Me.Left / Screen.TwipsPerPixelX на 0

[RayShade]

Хм.. А по моему можно просто сделать окну стиль ToolWindow и все

[A.A.Z.]

Спасибо Tarik'у за код!

2 RayShade:
Чё-то я не понял, можно поподробнее? Где это ставить?

[Tarik]

2A.A.Z.: Пожалуйста
2RayShade: Это в BorderStyle что ли? Пробовал - не помогает.

[Amed]

Мне кажется, что RayShade имел в виду внешний вид toolwindow окна...

А код Tarik'а так же необходим

[Shurik90]

Я пользуюсь вот таким кодом:

Декларация функции:

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

Public Declare Function 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 AlwaysOnTop()
    Const NoResize = &H1, NoMove = &H2
    SetWindowPos Me.hWnd, -1, 0, 0, 0, 0, NoResize Or NoMove
End Sub


А потом только позвать процедуру:

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

Private Sub Form_Load()
    Call AlwaysOnTop
End Sub


Надеюсь поможет.[/code]

[A.A.Z.]

2 Shurik90:
Да, твой код тоже работает. Спасибо

[Shurik90]

Не за что. Просто он короткий и понятный.