Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-08-2003
Niko Niko is offline
No confirmado
 
Registrado: may 2003
Ubicación: Fuenlabrada - Madrid
Posts: 55
Poder: 0
Niko Va por buen camino
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
Responder Con Cita
  #2  
Antiguo 08-08-2003
frankmch frankmch is offline
Miembro
 
Registrado: jul 2003
Ubicación: venezuela
Posts: 76
Poder: 21
frankmch Va por buen camino
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
__________________
ing. frankmch
Responder Con Cita
  #3  
Antiguo 08-08-2003
andres1569 andres1569 is offline
Miembro
 
Registrado: may 2003
Posts: 908
Poder: 22
andres1569 Va por buen camino
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 ... ):

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;
__________________
Guía de Estilo
Responder Con Cita
  #4  
Antiguo 10-01-2015
cesar78200921 cesar78200921 is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 8
Poder: 0
cesar78200921 Va por buen camino
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
Responder Con Cita
  #5  
Antiguo 10-01-2015
cesar78200921 cesar78200921 is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 8
Poder: 0
cesar78200921 Va por buen camino
Smile Ya lo he solucionado

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

Última edición por nlsgarcia fecha: 10-01-2015 a las 16:33:00. Razón: Sintaxis Delphi
Responder Con Cita
  #6  
Antiguo 10-01-2015
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.043
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Recuerda poner los tags al código fuente, ejemplo:



Gracias
Responder Con Cita
  #7  
Antiguo 20-01-2015
cesar78200921 cesar78200921 is offline
Registrado
NULL
 
Registrado: may 2013
Posts: 8
Poder: 0
cesar78200921 Va por buen camino
Gracias por el consejo Casimiro , Saludos y Gracias.
Responder Con Cita
Respuesta



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


La franja horaria es GMT +2. Ahora son las 00:53:56.


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
Copyright 1996-2007 Club Delphi