Не передавать фокус форме при клике мыши

[caa2000]

Здравствуйте.
Делаю экранную клавиатуру.
Есть массив command buttons. С клавишами клавиатуры всё нормально.
А вот когда кликаешь мышью, при клике на button фокус хоть на короткое время, но передаётся на форму, в следствии чего иногда слетает с активного окна.

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

Private Declare Sub keybd_event Lib "user32" _
    (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
.................
Private Sub Timer1_Timer() 'timer interval = 1
................
hAppWnd = GetForegroundWindow()  '  hwnd к примеру notepad
..............................
End Sub

Private Sub cmdKey_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)  'в этот момент фокус переходит к Form1 ?
hAppWndEx = hAppWnd
ret = SetForegroundWindow(hAppWndEx) 'опять фокус на notepad
keybd_event Index, 0, 0, 0
keybd_event Index, 0, KEYEVENTF_KEYUP, 0
End Sub

Всё нормально, событие передаётся в notepad, но иногда фокус спрыгивает на форму,
что очень неприятно.
Возможно-ли, чтобы форма вообще не принимала фокус при клике ?
Типа Windows onscreen keyboard

[Old_Maple]

caa2000, попробуй использовать это.

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

Public Declare Function GetActiveWindow Lib "user32" () As Long
Public Declare Function SetActiveWindow Lib "user32" (ByVal hWnd As Long) As Long


[caa2000]

К сожалению то-же самое получается.

[Mikle]

А если отказаться от использования событий, типа MouseDown или Click, никаких кнопок, опрашивать мышь через винапи?

[alibek]

https://stackoverflow.com/questions/130 ... -windows-c

[bon818]

https://stackoverflow.com/questions/13069717/letting-the-mouse-pass-through-windows-c

Не пойдет. События мыши будут передаваться в другие окна, расположенные под многослойным окном.

[Хакер]

Во-всех подобных случаях, когда непонятно, как сделать то или иное поведение, но есть программа, которая это поведение успешно реализует, я начиная с того, что беру Dependency Walker и смотрю, какие API-функции использует программа, и ищу «интересные», которые могут иметь отношение к делу.

У приложения экранной клавиатуры такие интересности есть.

Если этого недостаточно и по прежнему непонятно, как с помощью таких-то и таких-то API-функций добиться желаемого, вторым шагом берётся отладчик и высняется, как именно и что происходит.

[Old_Maple]

bon818, либо я чего-то не понял, либо ты не так объяснил...
Твоя экранная клавиатура, как ни крути, это "окно".
Поставь внутри цикл do.... DoEvents.... While (условие). И проверяй в этом цикле "фокус" своего "окна" через функцию GetActiveWindow. Если "фокус" выскочил из окна, отправляй "фокус" в свое "окно" с экранной клавиатурой посредством функции SetActiveWindow. Выход из цикла do.... DoEvents.... While (условие) и "окна" осуществляй сочетанием горячих клавиш.

[Хакер]

do.... DoEvents.... While (условие).

И получить загрузку одного из ядер близкую к 100%. Ох уж эти вредные советы.

Правильная экранная клавиатура не должна отнимать фокус у рядовых окон, а не отнимать и тут же возвращать.

[ger_kar]

Если этого недостаточно и по прежнему непонятно, как с помощью таких-то и таких-то API-функций добиться желаемого, вторым шагом берётся отладчик и высняется, как именно и что происходит.

У меня получалось только в основном при помощи отладчика, так как зачастую используемые WinAPI функции подгружаются динамически через LoadLibrary.
Также может помочь Spy++ c помощью этой утилиты можно посмотреть структуру окон и по мониторить оконные сообщения.
Кстати есть утилита, которая мониторит вызов функций и выводит информацию в лог. Напрочь забыл, как она называется. Но если задаться целью, то можно будет найти. На Windows XP такая утилита хорошо работала, а вот будет ли работать на новых системах не знаю.

[The trick]

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

    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOREDRAW Or SWP_NOSIZE
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_NOACTIVATE Or WS_EX_TOOLWINDOW

[bon818]

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

    SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_NOMOVE Or SWP_NOREDRAW Or SWP_NOSIZE
    SetWindowLong Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_NOACTIVATE Or WS_EX_TOOLWINDOW

WS_EX_NOACTIVATE Точно! Стили рулят)

[caa2000]

The trick !
You are super !!!!
Спасибо всем, кто откликнулся.