Активно ли окно

[StimorolD3DX]

Как проверить активно ли окно, тоесть имеет ли оно фокус?
Пробовал: Form_LostFocus, Form_GotFocus не помагает...

[Хакер]

Get(Active|Foreground)Window

[nekeda]

Задам свой вопрос тут, чтобы не создавать новый топик. Как сделать окно активным? Я пробовал:
SetActiveWindow
SetForegroundWindow
BringWindowToTop
SendMessage (WM_ACTIVATE, WM_ACTIVATEAPP)

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

[tyomitch]

Да, это нормально.
Бешено бесят проги, которые воруют у меня фокус.
Пусть лучше мигают.

[nekeda]

Фокус возвращаю своей проге, а не чужой.
Неужели нельзя "своровать"?

[GSerg]

У той, с которой пользователь работает в настоящий момент? Чтобы подсунуть свою прямо в процессе набора текста, чтобы весь этот текст пошёл тебе, и чтобы пользователь закрыл твою обнаглевшую прогу, обматерил тебя и пошёл набирать пропавший текст заново?

[nekeda]

Да нет же) Пользователь осознанно нажимает удобное сочетание клавиш, чтоб сразу вводить текст в моей проге.

(Неужели это так важно?)

[tyomitch]

Даже страшно представить, как ты ловишь эту комбинацию клавиш -- GetAsyncKeyState в цикле?

Активная прога может отдать фокус кому захочет. Если она и правда твоя, то пусть активирует другую твою прогу.

[nekeda]

не в цикле, а в таймере.
неактивная прога не может кинуть фокус вообще?

[Cytron]

легко: нужно свернуть (windowstate=1) и развернуть (windowstate=0) окно своей программы, и она станет активна!

[tyomitch]

не в цикле, а в таймере.

Отвратительно. Про RegisterHotKey не слышал?


Cytron, кончай нести чушь.
Сам-то проверял, раньше чем советовать?

[nekeda]

Про RegisterHotKey не слышал?

не слышал. А чем плоха GetAsyncKeyState?

И правельно ли я понял что windows позволяет передать фокус другому окну, только если передаёт его активное окно?

[tyomitch]

Про RegisterHotKey не слышал?

не слышал. А чем плоха GetAsyncKeyState?

Необходимостью опроса в цикле.

И правельно ли я понял что windows позволяет передать фокус другому окну, только если передаёт его активное окно?

Да.

[CodeName33]

Когда стояла подобная задача - ставил моё окно поверх всех в указанные координаты и мышкой по нему - щёлк. Но это уже совсем наглое поведение, я такое делал сугубо для личного пользования.

[nekeda]

Во! Это идея

Поведение действительно наглое, но в данном случае оно необходимо тем, кто пользуется программой.

[tyomitch]

Свят, свят...
Лучше бы ты заюзал RegisterHotKey.
Она создана специально для того, что ты пытаешься устроить.
Наверняка она и вытащить окно наверх из своего обработчика даст.

[nekeda]

tyomitch
я попробую

[Cytron]

Cytron, кончай нести чушь.
Сам-то проверял, раньше чем советовать?

проверял и у меня все работает

[nekeda]

tyomitch
посомтрел пример..
http://www.vb.kiev.ua/ref/w32api/showdo ... sterhotkey
Там тоже используется цикл.

[tyomitch]

Ну значит, такой пример корявый.
Вот тебе отлично работающий, без циклов и без левых хаков вытаскивающий нужное окно наверх.

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

Option Explicit

Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As Long, ByVal id As Long, ByVal fsModifiers As Long, ByVal vk As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_WNDPROC = -4

Private Sub Form_Load()
RegisterHotKey hWnd, 0, vbCtrlMask, vbKeyA
OldWindowProc = SetWindowLong(hWnd, GWL_WNDPROC, AddressOf WndProc)
End Sub


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

Option Explicit

Private Declare Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function SetForegroundWindow Lib "user32" (ByVal hWnd As Long) As Long
Private Const WM_HOTKEY = &H312
Public OldWindowProc As Long

Public Function WndProc(ByVal hWnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If Msg = WM_HOTKEY Then
    SetForegroundWindow hWnd
    MsgBox "Ку-ку!"
Else
    WndProc = CallWindowProc(OldWindowProc, hWnd, Msg, wParam, lParam)
End If
End Function


[nekeda]

tyomitch
спасибо, то что надо!