люди добрые, мне окошко надо показать поверх всех, но без фокуса...

Это как сделать всегда сверху.

Код

Option Explicit 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 Private Const HWND_TOPMOST = -1 Private Const HWND_NOTOPMOST = -2 Private Const SWP_NOMOVE = &H2 Private Const SWP_NOSIZE = &H1 Private Const SWP_NOACTIVATE = &H10 Private Const SWP_SHOWWINDOW = &H40 Public Sub SetFormPosition(frmHandl As Long, TopPosition As Boolean)           If TopPosition Then                SetWindowPos frmHandl, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOSIZE Or SWP_NOMOVE           Else                SetWindowPos frmHandl, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE           End If End Sub

Дальше (если я правильно понял) нужно для загружаемоо таким образом окна прописать передачю фокуса другому приложению. единственный нюанс: если окно запускается твоим приложением и у твоего приложения должен отсаться фокус - тут все просто. Иначе придется отслеживать какие окна были открыты перед запуском окна (всегда сверху) и какое имело фокус, ну а потом уже после запуска передать фокус обратно.
Если я не ошибаусь передачу фокуса можно осуществить с помощью функции
AppActivate "имя приложения",
где "имя приложения" - название проги, указанное в строке заголовка.

Это сообщение отредактировал(а) amt - 19.4.2005, 09:09

amt
зачем NOSIZE и NOMOVE? в любом случае я пробовал уже SWP_NOACTIVE и не получил удволетворительного эффекта, оно получается "сжатым" по размерам до своих минимумов (остается один заголовок)..

efedron
Код я тебе кинул готовый для того, чтобы всегда сверху. Мне когда-то нужен был, я спросил, мне дали. У меня он работает и я его не расковыривал. А по поводу фокуса я тебе другое писал.
С уважением.