Delphi/Lazarus: Obtener Handle de la Ventana bajo el Cursor del Mouse

En primer lugar, debe determinar la posición actual del mouse. Esto se puede hacer usando la función GetCursorPos(). Después de eso, puede usar la función WindowFromPoint() para especificar la ventana en esta posición.

Aquí hay un ejemplo:

var
  ACursorPos: TPoint;
  AHandle: HWND;
begin

  if GetCursorPos(ACursorPos) then begin

     AHandle := WindowFromPoint(ACursorPos);

     if AHandle <> 0 then begin
        SendMessage(AHandle, ..., ..., ...);
     end;
  end;  

end;

Debido a que ambas funciones pueden fallar, debe implementar condiciones como lo hice en el ejemplo. Solo si está seguro de que la Handle no es 0, eso significa que se encontró una ventana, debe continuar y usar la Handle. En el ejemplo anterior, enviamos un mensaje a la ventana correspondiente.
20/03/2023 a las 17:42