Ver Mensaje Individual
  #2  
Antiguo 06-02-2021
Avatar de escafandra
[escafandra] escafandra is offline
Miembro Premium
 
Registrado: nov 2007
Posts: 2.197
Reputación: 20
escafandra Tiene un aura espectacularescafandra Tiene un aura espectacular
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.coordenadas.rect.left;
      
coordenadasRelativas.coordenadas.rect.top;

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

Saludos.
Responder Con Cita