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:

Código Delphi [-]
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.