Как сделать так, чтобы моя программа потеряла фокус

[arthur2]

Вот, собственно - это и есть вопрос: Как сделать так, чтобы моя программа потеряла фокус. Подразумевается, что фокус должен вернуться в ту программу, которая была активна до меня.

[dr.MIG]

Если в программе одно окно, то самое первое, что приходит в голову это SendKeys "%{TAB}", True

[oskolok_vatbI]

Может как-то через SetForegroundWindow и GetForegroundWindow и таймер ? Ну это так, домыслы, знающие поправят.

[arthur2]

Да, SetForegroundWindow помогла

С ней есть проблема, если фокус не у моей программы - тогда то окно, которое я попытаюсь активировать, просто помигает из панели задач. А когда фокус у меня, отдать его оказалось - ни каких проблем.

Если изначально фокус не у меня, то я решил проблему с помощью подложного окна. Оно у меня маленькое, невидимое и живёт за пределами экрана. Когда надо что-нибудь активировать, я "показываю" своё подложное окно. Хоть оно и за кулисами, но исправно берёт на себя фокус. А после этого уже отдаю фокус кому хочу, а подложное окно снова прячу

[tyomitch]

Если изначально фокус не у меня, то я решил проблему с помощью подложного окна. Оно у меня маленькое, невидимое и живёт за пределами экрана. Когда надо что-нибудь активировать, я "показываю" своё подложное окно. Хоть оно и за кулисами, но исправно берёт на себя фокус. А после этого уже отдаю фокус кому хочу, а подложное окно снова прячу

А анимация сквозь твоё подложное окно видна?

[arthur2]

Не понял вопроса

Оно у меня за пределами экрана : move -with,-height

[tyomitch]

Ага. Тогда не понял твой трюк.
Каким образом подложное окно принимает фокус?

[arthur2]

Ага. Тогда не понял твой трюк.
Каким образом подложное окно принимает фокус?

В общем, фокус не удался То есть, я неправильно интерпретировал то, что у меня вышло, и всё работает без всяких подложных окон.

Проблема была, когда я кликал на значке в трее и появлялось моё окно, а фокус оказывался непонятно где. Тогда я и придумал подложное окно, прилепил SetForegroundWindow и всё заработало... но подложное окно действительно оказалось не при чём

Изначально я просто думал, что когда кликаешь по значку трея, фокус не у меня... а он-то оказывается, всё же у меня! Так что это я перемудрил

[tyomitch]

Ага.
А мне примерещился вон какой трюк для воровства фокуса: сделать окно без рамки, поверх всех, на весь экран, и отрисовать на нём полный скриншот.
По первому клику, фокус у нас

[arthur2]

Забавно

А есть способ действительно выдать кому-нибудь фокус, если он не у тебя?

У меня по мотивом моего неудавшегося фокуса появилась такая мысль: создать вспомогательную программу и передавать ей хендл нужного окна в качестве параметра. Затем запускать её обычным Shell по описанной схеме (за кулисами экрана), а она уже передаст фокус нужному окну и выгрузится

[arthur2]

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

В общем, Аблом

[tyomitch]

А есть способ действительно выдать кому-нибудь фокус, если он не у тебя?

Легального нет.
Раньше были хаки через AttachThreadInput, но в Висте, если не раньше, их вырубили.
И слава богу.

У меня по мотивом моего неудавшегося фокуса появилась такая мысль: создать вспомогательную программу и передавать ей хендл нужного окна в качестве параметра. Затем запускать её обычным Shell по описанной схеме (за кулисами экрана), а она уже передаст фокус нужному окну и выгрузится

Если у тебя нет фокуса, когда запускаешь прогу, то она при запуске не получит фокус.
Всё железобетонно.

[arthur2]

Ага, я уже проверил (см. предыдущий топик)

Да ну и ладно, не больно-то и надо, это уже так, остаточное любопытство. Свою-то проблему я уже решил

[arthur2]

dr.MIG
А кстати - это действительно работает! Окно получает фокус, даже если запускающая программа не была активна!

Если в программе одно окно, то самое первое, что приходит в голову это SendKeys "%{TAB}", True

Проблема только в том, чтобы фокус передавался не кому-то вообще, а кому-то конкретному.

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

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

Option Explicit
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hwnd As Long) As Long

Private Sub cmn_Click()
    MsgBox "Через десять секунд, где бы ни находился фокус, он вернётся к нам :)"
    timer1.Interval = 10000
    timer1.Enabled = True
    Me.Visible = False
End Sub

Private Sub timer1_Timer()
    Show
    DoEvents
    SendKeys "%{TAB}", True
    DoEvents
    SetForegroundWindow hwnd 'себе. Ну или кому угодно :)
   
    Caption = "Сработало?" 'чтобы было видно в панели задач, если фокус не передастся :)
    timer1.Enabled = False
End Sub



Так что идея с подложным окном таки реализуема