Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   API de Windows (https://www.clubdelphi.com/foros/forumdisplay.php?f=7)
-   -   Hook no me funciona con Acrobat (https://www.clubdelphi.com/foros/showthread.php?t=50392)

ramiretor 16-11-2007 01:04:44

Hook no me funciona con Acrobat
 
Hola a todos los foreros:
Espero todos estén bien y ahora recurro a sus conocimientos para ver si alguien me puede ayudar. Tengo una aplicación en la que abro Acrobat Reader dentro de una forma Delphi. Todo bien hasta ahi, el problema es que existen usuarios que no pueden imprimir los documentos que abren en la aplicación, para eso decidimos que se deshabilitará el menú emergente al apretar el botón derecho del ratón. Para esto se me ocurrió implementar un Hook de ratón que tomé de trucomanía, todo bien hasta ahi, de hecho el Hook funciona bien, ya que logro encontrar el momento exacto en que el usuario aprieta el botón derecho, pero el problema es que para que no aparezca el menú mando un simple ShowMessage, como a continuación:

Código Delphi [-]
procedure TFrPreviewPDF.LlegaDelHook(var message: TMessage);
var
  Accion: String;
begin       


    Accion := EmptyStr;
    case Message.wParam of
     WM_RBUTTONDBLCLK     : Accion:='WM_RBUTTONDBLCLK  ';
     WM_RBUTTONDOWN       : Accion:='WM_RBUTTONDOWN    ';
     WM_RBUTTONUP         : Accion:='WM_RBUTTONUP      '
    end;

    if Accion <> EmptyStr then
    begin
       ShowMessage('El Usuario no tiene habilitado el botón derecho en esta aplicación');
    end;

end;

Lo cual en efecto funciona ya que no aparece el menú emergente, solo con un detalle, el showMessage abre otra ventana y me manda a la última aplicacion que tenía abierta, por ejemplo si tenía abierto NotePad y seguido ejecuto esa parte del sistema, me manda para el NotePad. Además veo otra ventana aparte de la del sistemá que trae el mensaje.

Espero ser claro del problema y si alguien me puede ayudar mucho se lo agradeceré.


La franja horaria es GMT +2. Ahora son las 06:34:14.

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