RealChildWindowFromPointの使い方。

メッセージ

7 · #1 投稿記事 by 7 » 2006年4月24日(月) 20:24

カーソル下のウィンドウハンドルを取得しようと思い、グループボックスの中にあるコントロールも取得したかったのでRealChildWindowFromPoint()関数を使おうとしたんですがうまくいきません。

void GetRealWindow(HWND *phWnd)
{         
        POINT ptPoint;
        HWND hWndTop = NULL;
        HWND hWndChild = NULL; 
        POINT ptCooChild = {0};
       
        //先得到ptPoint指向的(子)窗口，再通过子窗口得到父窗口的句柄
        GetCursorPos(&ptPoint);//得到鼠标的位置
        hWndTop = ::WindowFromPoint(ptPoint);//获取鼠标包含指定点的窗口的句柄
        ptCooChild = ptPoint; 
        *phWnd = GetParent(hWndTop);       //用来获取最上层的父窗口的句柄
        
        ::ScreenToClient(*phWnd, &ptCooChild);//该函数将屏幕的一个坐标转换成客户区（窗口）的坐标
       
        //从最上层的窗口开始外下找，只直到找到最地层的窗口
        while (TRUE){
            hWndChild = RealChildWindowFromPoint(*phWnd, ptCooChild);
        if (hWndChild && (hWndChild != *phWnd))
                *phWnd = hWndChild;
            else
                break;
       }
}

書いたコード [ここをクリックすると内容が表示されます]

コード: 全て選択

Dim ptPoint As POINTAPI
Dim phWnd As HWND
Dim hWndTop=NULL As HWND
Dim hWndChild=NULL As HWND
Dim ptCooChild=NULL As POINTAPI
       
	GetCursorPos(ptPoint)
	hWndTop=WindowFromPoint(ptPoint.x,ptPoint.y)
	ptCooChild=ptPoint
	phWnd=GetWindowLong(hWndTop,GWL_HWNDPARENT)

	ScreenToClient(phWnd,ptCooChild)

	While TRUE
		hWndChild=RealChildWindowFromPoint(phWnd,ptCooChild)
		If (hWndChild And (hWndChild <> phWnd)) Then
			phWnd = hWndChild
		Else
			Exit While
		End If
	Wend

どなたかRealChildWindowFromPoint()関数に詳しい方いませんか？

ゲスト

とりあずデバッグして一つ一つの処理を確認してみては？
そのAPIだけが失敗するのなら問題ですが。
同系のAPIと使用方法は、大差ないですし。

7 · #3 投稿記事 by 7 » 2006年4月25日(火) 21:12

> そのAPIだけが失敗するのなら問題ですが。
RealChildWindowFromPoint()関数の戻り値がいつも 0 ですね。
関数が悪い訳じゃなくて指定すべき値が間違ってるんでしょうか...。
違うサンプルコードから以下のように直したんですけどやっぱりグループボックスの中のコントロールのハンドルを取得できません。

新しく書いたコード [ここをクリックすると内容が表示されます]

コード: 全て選択

Function RealWindowFromPoint(ByRef ptHitTest As POINTAPI) As HWND
Dim pWnd As HWND
	pWnd=WindowFromPoint(ptHitTest.x,ptHitTest.y)

	If (pWnd) And (GetWindowLong(pWnd,GWL_STYLE) And WS_CHILD) Then
	Dim pParent As HWND
		pParent=GetParent(pWnd)
		If pParent Then
		Dim hUser32 As  HINSTANCE
			hUser32=LoadLibrary("user32.dll")
			If hUser32 Then
			Dim fnRealWndFromPoint As *Function(ByVal hwndParent As HWND,ByRef ptParentClientCoords As POINTAPI) As HWND
				fnRealWndFromPoint=GetProcAddress(hUser32,"RealChildWindowFromPoint") As *Function
				If fnRealWndFromPoint Then
				Dim hHit As HWND
					ScreenToClient(pParent,ptHitTest)
					'戻り値は 0 になる
					hHit=fnRealWndFromPoint(pParent,ptHitTest)
					If hHit Then
						pWnd=hHit
					End If
				Else
				Dim pChild As HWND
				Dim uHitTest As LRESULT
					pChild=GetWindow(pParent,GW_CHILD)
					While pChild
						uHitTest=SendMessage(pChild,WM_NCHITTEST,NULL,MAKELONG(ptHitTest.x As DWord,ptHitTest.y As DWord))
						If uHitTest > 0 Then
							pWnd=pChild
							Exit While
						End If
						pChild=GetWindow(pChild,GW_HWNDNEXT)
					Wend
				End If
				FreeLibrary(hUser32)
			End If
		End If
	End If

	RealWindowFromPoint=pWnd
End Function

環境が悪いんでしょうかねぇ...。

てふろん

こんにちは、てふろんです。

RealChildWindowFromPoint の第二引数は POINT構造体の値渡しかと。
よって Int64 か QWord に置き換えてあげる必要があるような気がします。

> Dim fnRealWndFromPoint As *Function(ByVal hwndParent As HWND,ptParentClientCoords As QWord) As HWND
このように関数ポインタを定義し、

> Dim uHitTest As Qword
> uHitTest = ptHitTest.x or ( ptHitTest.y << 32 )
> hHit = fnRealWndFromPoint(pParent,uHitTest)
とすれば動いてくれるような気がします。

テストしてないので全くわかりませんが。

ゲスト

すでにレスが付いてる通り、元の宣言は、値渡しですね。

HWND RealChildWindowFromPoint(
HWND hwndParent,
POINT ptParentClientCoords
);

なので、こうしてみてください。

Declare Function RealChildWindowFromPoint Lib "user32" _
(hWndParent As HWND, _
xPoint As Long, _
yPoint As Long) As HWND

7 · #6 投稿記事 by 7 » 2006年4月26日(水) 17:37

てふろんさんさんが書きました:RealChildWindowFromPoint の第二引数は POINT構造体の値渡しかと。
よって Int64 か QWord に置き換えてあげる必要があるような気がします。

> Dim uHitTest As Qword
> uHitTest = ptHitTest.x or ( ptHitTest.y << 32 )
> hHit = fnRealWndFromPoint(pParent,uHitTest)
とすれば動いてくれるような気がします。

これでもできなくて悩んでいた所、グループボックスの中のActiveBasicで言う「通知」にチェックが入ってないスタティックコントロールは感知できないってことが分かりました...。
他のコントロールは取得できていました。

こんな風にしました [ここをクリックすると内容が表示されます]

Int64,QWord がActiveBasicになかったら使えなかったんでしょうかね。

と思ったら出来ました [ここをクリックすると内容が表示されます]

コード: 全て選択

Dim ptCooChild As VoidPtr
	ScreenToClient(pParent,ptHitTest)
	ptCooChild=malloc(SizeOf(Long)*2)
	memcpy(ptCooChild,VarPtr(ptHitTest),SizeOf(Long)*2)
	hHit=fnRealWndFromPoint(pParent,ptCooChild)
	free(ptCooChild)

ゲストさんさんが書きました:なので、こうしてみてください。

Declare Function RealChildWindowFromPoint Lib "user32" _
(hWndParent As HWND, _
xPoint As Long, _
yPoint As Long) As HWND

こういう風に宣言できたんですか！これが分かってれば悩むことも無かったかもしれませんね。

てふろんさん、ゲストさん、ありがとうございました。

7 · #7 投稿記事 by 7 » 2006年4月27日(木) 21:42

> Int64,QWord がActiveBasicになかったら使えなかったんでしょうかね。
>

と思ったら出来ました [ここをクリックすると内容が表示されます]

コード: 全て選択

Dim ptCooChild As VoidPtr
> 	ScreenToClient(pParent,ptHitTest)
> 	ptCooChild=malloc(SizeOf(Long)*2)
> 	memcpy(ptCooChild,VarPtr(ptHitTest),SizeOf(Long)*2)
> 	hHit=fnRealWndFromPoint(pParent,ptCooChild)
> 	free(ptCooChild)

上のくだりで気付いたんですけど、

[ここをクリックすると内容が表示されます]

コード: 全て選択

Dim fnRealWndFromPoint As *Function(ByVal hwndParent As HWND,ByVal ptParentClientCoords As VoidPtr) As HWND
'POINTAPI構造体のアドレスを値渡し？
hHit=fnRealWndFromPoint(pParent,VarPtr(ptHitTest))

と書いても動きました。