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.


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