Как запретить окну получать фокус?

[Kepmann]

Все то же окно IE.

Нужно сделать так, чтобы это окно НИКОГДА не получало фокус (оно пытается это сделать при выполнении своего скрипта).

Заранее благодарен.

[d3drm]

нужно ему сказать: "фукос - фу! брось фокус!"

обычно помогает!

[Kepmann]

А если серьезно? Вроде есть среди АПИ че-то похожее, или может кака-то ввссе-таки можно?

[d3drm]

ХМ... а вообще окну можно запретить получать фокус?

[Kepmann]

Вот я про этоо и спрашиваю...

[d3drm]

тогда считай ничо у тя не получица. незя так делать.

[Kepmann]

А как нибудь обходнымии путями? Ну наверняка такое бывает. Наверняка я не единственный, кому понадобилось это...

[Kovu]

Ну можно добавить к стилям окна WS_DISABLED тогда в принципе можно сказать что для него вообще и нет понятие фокус
А после выполнения скрипта возвращать ему старые стили
P.S. Use GetWindowLong and SetWindowLong if you are clever

[Kepmann]

Важно,чтобы этот скрипт выполнялся...

[Kovu]

А кто сказал что когда окно Disabled оно не принимает сообщения
Оно их прекрасно принимает и обрабатывает, другое дело userinput блокируется . Видел Total Commander . Там примерно также когда добавляешь скажем адрес в фтп-адреса

[Kepmann]

А если окно disabled (окно IE), по скрипту в него будет страница загружаться новая?

[Kovu]

А проверить САМ можешь По идее должен т.к. загрузка новой страницы это внутреннее событие, которое не только юзер может вызвать
А как говорится что не может вызвать юзер вызовем МЫ

[Kepmann]

Да че-то стормозил, щас проверю

[Kepmann]

Оно все равно фокус получает... 8( (со скрипта)

[Kovu]

Ты имеешь ввиду что окно переходит на передний план?
Можно воспользоваться методом топора и кувалды:
LockWindowUpdate(GetDesktopWindow) или то же самое но окно Explorera
А после скрипта:
SendMessage hwndIE,WM_SYSCOMMAND,SC_MINIMIZE,0
Можно чуть подождать пока скрипт выполняется или для надёжности сделать Post а не Send messaga желательно несколько раз

[Kepmann]

Насколько понимаю, это функция запрещает перерисовку окна, а не обновление страницы, в общем, фокус передается, окно разворачивается... не помогло

[Kovu]

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

Private Declare Function LockWindowUpdate Lib "user32.dll" (ByVal hwndLock As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32.dll" () As Long

Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function SetForegroundWindow Lib "user32.dll" (ByVal hwnd As Long) As Long

Private Const WM_PAINT As Long = &HF&
Private Const WM_SYSCOMMAND As Long = &H112
Private Const SC_MINIMIZE As Long = &HF020&

Private Sub Command1_Click()
SendMessage FindWindow("IEFrame", vbNullString), WM_SYSCOMMAND, SC_MINIMIZE, 0 'До скрипта удостоверимся что юзер нифига не видит
LockWindowUpdate GetDesktopWindow
SendMessage FindWindow("IEFrame", vbNullString), WM_SYSCOMMAND, &HF120, 0 'Это восстановление окна до первоначальных размеров. Как видишь юзеру нифиииииииииииииииига не видно
'А туточки код запуска скрипта :)
SendMessage FindWindow("IEFrame", vbNullString), WM_SYSCOMMAND, SC_MINIMIZE, 0 'А теперь после скрипта
ReleaseCapture 'На всякий случ
SetForegroundWindow Me.hwnd 'На всякий случ
End Sub


Рекомендую vbNullString заменить на название страницы чтоб конфликта не произошло

[Kepmann]

Да я понял, что ты имеешь ввиду, просто не помогает это в моем случае.

Допустим, окно с которым я работаю, невидимо (я его спрятал). Естественно, когда там наступает обновление, оно разворачивается, но я его слава богу не вижу... и получает фокус! Естественно, этоо жутко мешает... 8( Напримемр пишу ченить в окне, а фокус у окна пропал...

Не надо мне миинимизировать, например.

[Kovu]

Kepmann
Между прочим последней строкой кода(SetForegroundWindow Me.hwnd ) я передаю фокус форме, а она в свою очередь последнему имевшему фокус ребёнку, так что ты просто продолжишь печатать текст безо всяких проблем даже не заметив что фокус был у другого окна

[Kepmann]

а она в свою очередь последнему имевшему фокус ребёнку

Че то не вкурил, где это в листинге...

[Kovu]

Это делает виндоус по умолчанию
Окно с детьми не может только само иметь фокус, один из детей обязательно имеет фокус

[Kepmann]

Все пучком, почти... Совет по поводу минимайза сработал. Все ок, даже мерцания при пепредачи фокуса между окнами незаметно, на клаве бить тоже можно, фокус не теряется... Вот тока перед скрытием минимизированного окна, на панели задач на некототрое время зависает его иконка... Может это, конечно, связано с заторможенностью тачки, фиг знает...

Главное, чтоо работает...

Спасибо...

[ALX_2002]

2 Kepmann: Шеф ! Шеф ! Погодите ! Ну вы хоть поделитесь ради чего такие мучения то ?

Почему нужно столько мучать окна ???

Расскажите, что в конце то из этого получится ?

А то может есть способ на порядок проще ?