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 Buscar Temas de Hoy Marcar Foros Como Leídos

 
 
Herramientas Buscar en Tema Desplegado
  #3  
Antiguo 13-01-2007
carlos_nielsen carlos_nielsen is offline
Registrado
 
Registrado: ene 2007
Posts: 6
Poder: 0
carlos_nielsen Va por buen camino
Utilizo una hook de mouse para obtener los handles de los objetos alm pasar el puntero del mouse por encima. paso codigo de libreria y programa.
Código Delphi [-]
 
 library hookmouse;
 uses
  Windows,
  Messages;
const
  CM_MANDA_DATOS = WM_USER + $1000;
 type
  TCompartido = record
    Receptor,
    wHitTestCode,
    x,y,
    Ventana         : hwnd;
  end;
  PCompartido   =^TCompartido;

 var
  HookDeMouse  : HHook;
  FicheroM     : THandle;
  Compartido   : PCompartido;

 function CallBackDelHook( Code    : Integer;
                           wParam  : WPARAM;
                           lParam  : LPARAM
                           )       : LRESULT; stdcall;
 var
   DatosMouse     : PMouseHookStruct;
   Intentos       : integer;
 begin
  if code=HC_ACTION then
  begin
   FicheroM:=OpenFileMapping(FILE_MAP_WRITE,False,'ElReceptor');
   if FicheroM<>0 then
   begin
     Compartido:=MapViewOfFile(FicheroM,FILE_MAP_WRITE,0,0,0);
     DatosMouse:=Pointer(lparam);
     Compartido^.Ventana:=DatosMouse^.hwnd;
     Compartido^.x:=DatosMouse^.pt.x;
     Compartido^.y:=DatosMouse^.pt.y;
     PostMessage(Compartido^.Receptor,CM_MANDA_DATOS,wParam,lParam);
     UnmapViewOfFile(Compartido);
     CloseHandle(FicheroM);
   end;
  end;
  Result := CallNextHookEx(HookDeMouse, Code, wParam, lParam)
 end;
 procedure HookOn; stdcall;
 begin
   HookDeMouse:=SetWindowsHookEx(WH_MOUSE, @CallBackDelHook, HInstance , 0);
 end;
 procedure HookOff;  stdcall;
 begin
   UnhookWindowsHookEx(HookDeMouse);
 end;
 exports
  HookOn,
  HookOff;
 begin
 end.
 
 
en el programa...........
 
procedure TForm1.LlegaDelHook(var message: TMessage);
var
  DatosMouse     : PMouseHookStruct;
  NombreVentana  : array [0..200] of char;
  Accion         : string;
begin 
  with Compartido^ do 
  begin
    Label1.caption:='['+IntToStr(x)+':'+IntToStr(y)+']';
  end;
  GetWindowText(Compartido^.Ventana,@NombreVentana,200);
  Label2.Caption:=NombreVentana;
  label3.Caption:=inttostr(Compartido^.Ventana);
//aqui en label3 es donde se van mostrando los handles de los controles por los que pasa el puntero del mouse.
Lo que me interesa es obtener el handle pero de un control que esta deshabilitado.

Última edición por marcoszorrilla fecha: 13-01-2007 a las 16:29:25.
Responder Con Cita
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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 15:24:48.


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