Detectar clic derecho del raton

[The_figo]

Hola muy buenas y de antemano gracias por su atencion.. mire me gustaria saber como puedo detectar cuando se da clic derecho / izquierdo del raton sobre un determinado componente.. ya ven ke tenemos el popumenu y hace esa funcion damos clic derecho y aparece dicho menu...

a mi me gustaria ke en ves de un popup menu, pudiera yo mostrar un formulario personalizado... gracias por su respuesta de antemano

[luisgutierrezb]

con el evento OnMouseDown o OnMouseUp, uno de los parametros es el boton que presionaste

[jorgito.crazy]

Aquí te va un ejemplo por si no te alcanza con lo anterior:

Inserta un Botón y en el evento OnMouseDown pon este código:

if shift=[ssright] then
Showmessage('Clic Derecho')

Espero te ayude

[[egostar]]

Mira esto haber si te sirve.

Código Delphi [-]
 
procedure TForm1.Edit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  Case Button of
     mbLeft : ShowMessage('Click en Botón Izquierdo');
     mbRight : ShowMessage('Click en Botón Derecho');
     mbMiddle : ShowMessage('Click en Botón Central');
  end;
end;

Saludos.

[cesar78200921]

Salud0s a todos , he encontrado este tema ya varias veces por todo el foro

bueno lo que hice fue poner este codigo en la aplicacion pero primero
agrege el componente TAplicationEventes y en su evento Onmessage puse el siguiente codigo

 if  (Msg.message >= WM_RBUTTONDOWN) AND
     (Msg.message <= WM_RBUTTONDBLCLK) then
    Handled := TRUE;

espero que le sirva al igual como lo hizo conmigo un saludo y gracias