Botón derecho del mouse

[[AgustinOrtu]]

Te referis a hacerle doble click a la palabra y que quede seleccionada en azul?

Proba con las propiedades SelStart, SelCount

[joseprad]

Cuando decía cursor debía decir caret.

Para poder identificar una palabra en un RichEdit desearía desplazar el caret sobre la palabra que he hecho clic con el botón derecho del ratón. De esta manera identifico la palabra y puedo abrir un popup con las sugerencias correctas de la palabra.

[joseprad]

Después de mucho buscar salió la solución.

Situar el caret de un RichEdit en la posición del cursor del mouse al hacer click con el buton derecho.

Código Delphi [-]
procedure TJrRichEditDic.MouseDown(sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  len: Integer;
  p: Integer;
  pt: TPoint;
begin
  pt := Point(X, Y);
  case Button of
    mbLeft: begin
      end;
    mbRight: begin
        if Length(Text) <> 0 then begin
          len := SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0);
          p := Perform(Messages.EM_CHARFROMPOS, 0, Integer(@pt));
          SendMessage(Handle, EM_SETSEL, p, p);
        end;
      end;
  end;
end;