Club Delphi  
    Paypal   FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #6  
Antiguo 13-01-2007
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 26
seoane Va por buen camino
Cita:
Empezado por roman
Aunque el SDK indica que puede usarse ChildWindowFromPoint para esos casos. Claro que si la ventana deshabilitada es la ventana padre pues...
Siempre con la última palabra

Es verdad, ChildWindowFromPoint puede obtener el handle de una ventana deshabilitada, pero primero necesitamos tener el handle de su padre, o en su caso abuelos Pero eso lo podemos solucionar fácilmente con un bonito bucle. La cosa quedaría así:

Código Delphi [-]
const
  // Utilizamos un hook de bajo nivel, asi no me lio con dlls
  WH_MOUSE_LL = 14;

type
  ULONG_PTR = ULONG;
  // Esta estructira es necesaria para el Hook
  TMSLLHOOKSTRUCT = record
    pt: TPoint;
    mouseData: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: ULONG_PTR;
  end;
  PMSLLHOOKSTRUCT = ^TMSLLHOOKSTRUCT;

var
  MouseHook: HHook;

// Esta funcion nos devuelve el handle de la ventana mas joven.
function HandleFromPoint(P: TPoint): THandle;
var
  hWnd: THandle;
  ClientP: TPoint;
begin
  hWnd:= WindowFromPoint(P);
  repeat
    Result:= hWnd;
    ClientP:= P;
    if Windows.ScreenToClient(hWnd,ClientP) then
      hwnd:= ChildWindowFromPoint(hWnd,ClientP);
  until (hWnd = 0) or (Result = hWnd);
end;

function MouseProc(Code: Integer; WParam, LParam: DWORD): LRESULT; stdcall;
begin
  if (Code = HC_ACTION) and (WParam = WM_MOUSEMOVE) then
  begin
    frmMain.Caption:= IntToStr(HandleFromPoint(PMSLLHOOKSTRUCT(lParam).pt));
  end;
  Result := CallNextHookEx(MouseHook, Code, WParam, LParam);
end;

Te dejo todo esto envuelto para regalo , en este zip:
Archivos Adjuntos
Tipo de Archivo: zip Ejemplo36.zip (5,2 KB, 33 visitas)
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Ayuda sobre Handle Pascalizado Varios 2 06-11-2006 05:21:54
ayuda comparar Handle JerS API de Windows 3 30-10-2006 20:19:01
Cambiar la apariencia del DISABLED??? arieliten Varios 4 18-03-2005 15:40:34
Cannot focus a disabled or invisible window TONIAM Varios 3 02-03-2005 17:29:04
Obtener Handle de un objeto senpiterno Varios 6 22-04-2004 15:21:40


La franja horaria es GMT +2. Ahora son las 17:09:24.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi