Como deshabilitar el botón derecho del ratón????

[andres1569]

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 ... ):

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]

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]

Por fin lo desactive corretamente lo que hice fue modificar un poco el codigo

Me ha quedado asi

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

Gracias

[Casimiro Noteví]

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



Gracias

[cesar78200921]

Gracias por el consejo Casimiro , Saludos y Gracias.