Click сквозь окно

[t116]

Вот такая ситуация:

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

[Antonariy]

Пожалуй это невозможно. Если под мышкой есть окно, то оно будет получать фокус и клики. Можно попробовать отрисовывать изображение окна на бекграунде, как это делает AVS из винампа.

[keks-n]

t116
Сабкласс всех мышиных событий. Отлов всех окнон под твоим(через FindWindow, GetWindow). Далее находшь то, на которое должен попасть клик. После чего ищешь контролы того окна и передаёшь мышиное событие нужному контролу.

[t116]

Antonariy

Интересно, а как это сделать?

[keks-n]

dim desk as long, hdc as long
Findwindow "Progman"
GetDC(desk)

Вот на нём и рисуй.

[t116]

а как узнать lpWindowName рабочего стола?

[Antonariy]

Может все таки GetDesktopWindow?

[nekeda]

AVS из винампа использует оверлеи. Так просто на десктопе не порисуешь.

А если при клике спрятать форму, повторотить клик и снова её показать?

[Kostyan]

Идея проста, создаешь 2 прямоугольных региона. Один размером с форму, другой 1x1 приксел в том месте где сейчас находится мышь. Затем вырезаешь из большого региона маленький, и получаешь прямоугольник с дыркой в 1 пиксел, и дырка как раз под указателем мыши. Присваиваешь полученный регион форме и готово.
Код:

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

Private Declare Function SetWindowRgn Lib "User32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32.dll" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32.dll" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Const RGN_XOR As Long = 3

Public hRgn As Long, WinRgn As Long

Private Sub Form_Load()
WinRgn = CreateRectRgn(0, 0, Me.ScaleWidth, Me.ScaleHeight)
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
hRgn = CreateRectRgn(CLng(X), CLng(Y), CLng(X + 1), CLng(Y + 1))
Call CombineRgn(hRgn, WinRgn, hRgn, RGN_XOR)
Call SetWindowRgn(Me.hwnd, hRgn, True)
Call DeleteObject(hRgn)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Call DeleteObject(WinRgn)
End Sub

Единственный недостаток, MouseMove происходит только на форме, поэтому если водить мышью над контролами, дырка образовываться не будет. Но это непроблема, ведь вместо Label можно использовать TextOut. Либо в таймере определять координаты мыши, и отказаться от MouseMove.
Как закрыть такую форму, и как реализовать на ней надписи думай сам

P.S. Убери у формы заголовок (BorderStyle=0), и ScaleMode=3.

[X-hacker]

А не проще так?:

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

Dim DC As Long

DC=CreateDC("DISPLAY",vbNullstring,vbNullstring,0)'DevMode ставь Long
TransparentBlt( ...Твоё окно и т.п... )


Если я ничего не пропустил, должно работать только придётся форму перерисовывать.
Например после создания такого девайса и заполнением например при помощи SetPixelV (она быстрее SetPixel) у меня прекрасно отображалось меню ( НО на окнах не пробывал, да и им придётся затем WM_Paint посылать.(Но опять же есть более элегантные решения!)

[Kostyan]

X-hacker
Тот код что ты написал просто имитирует прозрачное окно, да и то не самым лучшим образом. Думаю автор вопроса сам знает что грамотно прозрачность ставится функцией SetLayeredWindowAttributes (Win 2000 и старше).
А мой код нужен именно для пропуска кликов сквозь форму, и не больше. Остальное мелочи.

[t116]

Да, разобрался. Уже давно но не мог на форум зайти поблагодарить. Спасибо за помощь всем!

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