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