Acceder a los botones del mouse

[CarlosAlberto]

Estimados usuarios del club:
¿cómo puedo acceder a la tecla izquierda o derecha muose al activar el evento onMouseDown estando el mouse sobre un panel?
A la espera por su respuesta muchas gracias.
Carlos Alberto

[ecfisa]

Hola CarlosAlberto.

Ejemplo:

procedure TForm1.Panel1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
case Button of
mbLeft: ShowMessage('Botón izquierdo');
mbRight: ShowMessage('Botón derecho');
mbMiddle: ShowMessage('Botón central');
end;
end;


Saludos.