Клик сквозь окно

← →
Мыш © (2004-02-04 08:19) [0]

Понадобилось сделать так, чтобы клик мышью пришелся по тем же координатам, но в окне, которое находится под программой. Это не всегда будет окно, на единицу меньшее в z- последовательности, т.к. сквозь прогу может просвечивать сразу несколько окошек. Я так понимаю, нужно передать сообщение клика, но кому? как определить это окошко?

← →
Алхимик © (2004-02-04 12:07) [1]

А что за задача то?
Может всё без изврата можно организовать?

← →
Мыш © (2004-02-04 13:12) [2]

Здесь изврат и не требуется. Висит инфо-окно, мешается, полупрозрачное. Нужно кликать сквозь него. Есть программа Самурайз, там это реализовано.

← →
Suntechnic © (2004-02-04 14:46) [3]

>Мыш ©
...но в окне, которое находится под программой. Это не всегда будет окно, на единицу меньшее в z- последовательности...

Я что-то не совсем понял эту фразу, но в любом случае, если тебе надо найти предыдущее окно в z- последовательности, то вызываешь GetWindow с параметром GW_HWNDNEXT. Дальше проверяешь, а находится ли данная точка в пределах найденного окна и если нет берёшь следующее.... В самом худшем случае в desktop упрёшься :)

← →
Suntechnic © (2004-02-04 14:49) [4]

Да, кстати для проверки находится ли точка в пределах окна можешь использовать PtInRect.

← →
Мыш © (2004-02-04 15:42) [5]

а я же еще не до конца рассказал :) у меня GetWindow не работает :(

Делаю так:

var
hh:hwnd;

hh:=GetNextWindow(handle,GW_HWNdNext);
SendMessage(hh,WM_CLOSE ,0,0);

Пока взял wm_close, чтобы проверить, (на собственном окне form.handle оно срабатывает), но эффекта - ноль

← →
Suntechnic © (2004-02-04 16:02) [6]

>Мыш ©
Да мало ли почему WM_CLOSE не отрабатывает. Может там специальная обработка для него имеется. Ты лучше смотри возвращает ли GetNextWindow(handle,GW_HWNdNext); тот дескриптор, что тебе нужен.

← →
GrayFace © (2004-02-04 16:39) [7]

GetWindow и GetWindowNext перебирают все окна подряд. Если вызвать на form1.handle, то возвратит Application.handle. В этот пример надо только вставить проверку на положение мыша.

var w:hwnd;
begin
w:=GetNextWindow(handle,GW_HWNdNext);
while (w<>0) and (w<>GetDesktopWindow) do
begin
if (w=Application.handle) or IsIconic(w) or not
IsWindowVisible(w) then w:=GetNextWindow(w,GW_HWNdNext)
else break;
end;
ShowWindow(w,sw_hide);
end;

← →
Мыш © (2004-02-13 19:01) [8]

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

hh:=GetNextWindow(handle,GW_HWNdnext);
sendmessage(hh,WM_RBUTTONDOWN,0,0);
sendmessage(hh,WM_RBUTTONUp,0,0);

← →
Walker © (2004-02-15 02:12) [9]

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

← →
DVM © (2004-02-15 14:59) [10]

Могу предложитьтакой вариант: при щелчке окно прячется на мгновение, затем вызывается функция WindowFromPoint() и сообщение о клике передается этому окну, свое окно возвращаем на место. Правда уверен, что есть более оптимальный вариант.

:) Еще предлагали при клике вырезать регион, а потом заново заполнять :) Даже если бы я был извращенцем, проблемы такие методы не решали бы, - как, например выделять текст сквозь окно?

2 Walker: спасибо за совет, очень интересно было посмотреть как сделаны хинты, однако я ничего там кроме
procedure THintWindow.WMNCHitTest(var Message: TWMNCHitTest);
begin
Message.Result := HTTRANSPARENT;
end;
интересного не нашел. А это только делает все окно недоступным, однако клики сквозь него не проходят. Может я не там искал, но я по поиску посмотрел все исходники дельфи на предмет слва hint и больше ничего не обнаружил.

Мыш, надо передавать те сообения, которые к тебе приходят, т.е. когда приходит WM_RBUTTONDOWN, шлешь sendmessage(hh,WM_RBUTTONDOWN,lparam,wparam), а sendmessage(hh,WM_RBUTTONUp,0,0) только когда придет соответствующее сообщение.
hh определяй, как я написал в [7]

> [9] Walker © (15.02.04 02:12)
procedure TForm1.Button1Click(Sender: TObject); var H: THintWindow; begin H := THintWindow.Create(self); H.ActivateHint(Rect(10, 10, 200, 200), "qwe"); end;
Хоть общелкайся ;)

Rouse_ © (17.02.04 12:18) [13]
Это не исходники хинтов, а исходники чьей-то проги.
В исходниках хинтов разобраться сложнее, чем написать самому.

Мой пример действует не на все окна, по всей видимости они обрабатывают WM_CLOSE по своему, но возможно доказывает правильность подхода:
procedure TForm1.FormClick(Sender: TObject); var lHandle: THandle; begin lHandle := Self.Handle; while (lHandle <> 0) and (DWORD(GetWindowLong(lHandle, GWL_HINSTANCE)) = hInstance) do lHandle := GetNextWindow(lHandle, GW_HWNDNEXT); if GetParent(lHandle) <> 0 then repeat lHandle := GetParent(lHandle); until GetParent(lHandle) = 0; if lHandle <> 0 then SendMessage(lHandle, WM_CLOSE , 0, 0); end;

Клик сквозь окно Найти похожие ветки