Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Como deshabilitar el botón derecho del ratón???? (https://www.clubdelphi.com/foros/showthread.php?t=2815)

Niko 08-08-2003 01:35:04

Como deshabilitar el botón derecho del ratón????
 
Hola a todos:

Me gustaría saber como puedo deshabilitar el botón derecho del ratón en todo el FORM1, incluidos los componentes que haya en él.

Gracias de Antemano
Jorge:confused:

frankmch 08-08-2003 07:52:11

Hola amigo.
la verdad no entiendo mucho a que te refieres con desactivar el boton derecho en un form, esto no tiene mucho sentido a menos que tengas popmenus en los forms que estas programando.

de todos modos eso me suena a una rutina de una api de windows, nunca lo he probado en delphi, pero busca en las ayudas del SDK de delphi, alli te describen las rutinas basicas del raton....

suerte

andres1569 08-08-2003 10:46:44

Hola:

Coincido con frankmch en que no parece muy clara la utilidad que le quieres dar a esto (salvo si tienes varios TPopupMenus). El siguiente código, tras colocar un componente TApplicationEvents, intercepta su evento OnMessage, e inutiliza la pulsación del botón derecho del ratón a nivel de tu aplicación (bueno y de las aplicaciones de quien lo quiera usar ... :D:D):

Código:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
  var Handled: Boolean);
begin
  if InutilizarBotonDerechoMouse AND // variable booleana que activas cuando lo desees
    (Msg.message >= WM_RBUTTONDOWN) AND
    (Msg.message <= WM_RBUTTONDBLCLK) then
    Handled := TRUE;  // con esto indicamos que ya hemos tratado el evento
end;


cesar78200921 10-01-2015 15:09:52

MMmm no me sale conrectamente
 
saludos Andres15959

He puesto el codigo tal y como lo pusiste pero la parte que dice InutilizarBotonDerechoMouse me da error mm de verdad nose que poner

de antemano le doy las gracias

cesar78200921 10-01-2015 15:18:31

Ya lo he solucionado
 
Por fin lo desactive corretamente lo que hice fue modificar un poco el codigo:D

Me ha quedado asi
Código Delphi [-]
 if  (Msg.message >= WM_RBUTTONDOWN) AND
     (Msg.message <= WM_RBUTTONDBLCLK) then
    Handled := TRUE;
Gracias

Casimiro Notevi 10-01-2015 15:38:40

Recuerda poner los tags al código fuente, ejemplo:



Gracias :)

cesar78200921 20-01-2015 14:55:01

Gracias por el consejo Casimiro , Saludos y Gracias.


La franja horaria es GMT +2. Ahora son las 12:17:58.

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