PDA

Ver la Versión Completa : Hook no me funciona con Acrobat


ramiretor
16-11-2007, 01:04:44
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:


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é.