всплывающее окно?

[bes]

Подскажите, плз, как сделать, чтобы такая, вот, небольшая по размеру форма постоянно (до закрытия, ес-сно) "висела" поверх всех остальных, развёрнутых "наполную"?

[iGrok]

Подскажите, плз, как сделать, чтобы такая, вот, небольшая по размеру форма постоянно (до закрытия, ес-сно) "висела" поверх всех остальных, развёрнутых "наполную"?

Поиск по HWND_TOPMOST.

[Debugger]

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

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) As Long
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1

Public Sub OnTop()
SetWindowPos YourForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
End Sub

Грубо говоря, так. YourForm - имя твоей формы, если ты не догодался

[bes]

Спасибо, пробую...
Глюк вот в этом секторе:
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const HWND_NOTOPMOST = -2
Public Const HWND_TOPMOST = -1
Вот эта ошибка Compile error:
Constants, fixed-length strings, arrays, user-defined types and Declare statements not allowed as Public members of object modules
Что я сделал не правильно, поясните?

[Debugger]

Конечно. Это надо объявлять в модуле (или заменить везде Puplic на Private). Английский язык знаешь?

[bes]

Конечно. Это надо объявлять в модуле (или заменить везде Puplic на Private). Английский язык знаешь?

К сожалению, английского не знаю - проблема... И программировать только учусь....
Спасибо за подсказку, пробую...

[Александр_ФФ]

Спасибо!
Небольшой баг: окно находится поверх всех, пок не открыто ещё одно какоенибудь винуос окно.
Вставка вызова продцеуры в Form_lostfocus и в Form_paint не помогла. что делать??

[Debugger]

Если открывается простое окно (как у calc.exe), то наше окно должно закрывать его.
Если открывается еще одно окно, которая тоже ставится как самое верхнее, оно становится "верхнее верхнего" (так как вызвано позже) и закрывает наше окно.
З.Ы. слово "закрывать" я имел ввиду перекрытие одной формой другую на экране