ab.com コミュニティ

コード: 全て選択

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))

コード: 全て選択

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

コード: 全て選択

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)

コード: 全て選択

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

コード: 全て選択

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