Acceder a los botones del mouse

[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.