Foros Club Delphi - Obtener coordenadas relativas de la ventana por posicion

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- C++ Builder (https://www.clubdelphi.com/foros/forumdisplay.php?f=13)

- - Obtener coordenadas relativas de la ventana por posicion (https://www.clubdelphi.com/foros/showthread.php?t=95048)

Obtener coordenadas relativas de la ventana por posicion

Buenas, el titulo no creo que sea todo lo correcto.
Lo que tengo es una pequeña aplicación con la que obtengo las coordenadas de un boton dentro de una ventana, o sea, me voy desplazando por la ventana y voy viendo las coordenadas desde el lado derecho y superior de la ventana pero cuando me coloco encima de cualquier componente las coordenadas pasan a ser relativas a ese componente, o sea, toma como inicio la esquina superior izquierda del componente.
Eso esta bien pero quiero que no tome las coordenadas del boton, sino que me muestre solo las de la ventana aunque esté encima de un boton o lo que sea, solo de la ventana principal del proceso en el que esté el cursor. No se si me explico bien.
Ahora mismo tengo esto:

Código PHP:


		
			
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
   //Detengo el timer mientras se realizan las operaciones
   Timer->Enabled = false;

   //Compruebo si tengo pulsada alguna de las dos teclas Ctrl
   //Si es así entro
   if(CtrlDown() == true){
      char nameClass[MAX_CLASS_NAME];
      char nameWnd[512];
      HWND hWnd;
      int retval;
      tagPOINT coordenadas;

      //Obtengo la posicion del puntero
      GetCursorPos(&coordenadas);

      //Obtengo el hwnd de la ventana o componente sobre el que estoy situado
      hWnd = WindowFromPoint(coordenadas);

      //Obtengo las coordenadas relativas a la ventana
      RECT rect;
      GetWindowRect(hWnd,&rect);
      coordenadasRelativas.x=coordenadas.x - rect.left;
      coordenadasRelativas.y=coordenadas.y - rect.top;
      LabelCoorRelX->Caption = coordenadasRelativas.x;
      LabelCoorRelY->Caption = coordenadasRelativas.y;
   }
   Timer->Enabled = true;
}

Prueba buscando el Parent:

Código PHP:


		
			
void __fastcall TForm1::TimerTimer(TObject *Sender)
{
   //Detengo el timer mientras se realizan las operaciones
   Timer->Enabled = false;

   //Compruebo si tengo pulsada alguna de las dos teclas Ctrl
   //Si es así entro
   if(CtrlDown() == true){
      char nameClass[MAX_CLASS_NAME];
      char nameWnd[512];
      HWND hWnd;
      int retval;
      tagPOINT coordenadas;

      //Obtengo la posicion del puntero
      GetCursorPos(&coordenadas);

      //Obtengo el hwnd de la ventana o componente sobre el que estoy situado
      hWnd = WindowFromPoint(coordenadas);
      while(GetParent(hWnd)) hWnd = GetParent(hWnd); // <<------------------

      //Obtengo las coordenadas relativas a la ventana
      RECT rect;
      GetWindowRect(hWnd, &rect);

      coordenadasRelativas.x = coordenadas.x - rect.left;
      coordenadasRelativas.y = coordenadas.y - rect.top;

      LabelCoorRelX->Caption = coordenadasRelativas.x;
      LabelCoorRelY->Caption = coordenadasRelativas.y;
   }
   Timer->Enabled = true;  
}

Saludos.

Wow lo pruebo el lunes y te digo que tal pero la verdad es que es algo tan sencillo que me jode bastante que no se me ocurrieron 😅

Fue perfecto, gracias.