Открыть PopupMenu над выделенным словом в RichView

[Shouldercannon]

Доброго времени суток!
Подскажите пожалуйста, как открыть PopupMenu над выделенным словом в RichView. Казалось бы, вот оно решение

procedure TForm1.RichView1RVRightClick(Sender: TCustomRichView;
  ClickedWord: String; Style, X, Y: Integer);
var
  P: TPoint;
begin
  If RichView1.SelectionExists then
  begin
    P := RichView1.ClientToScreen(Point(X, Y));
    PopupMenu1.Popup(P.X, P.Y);
  end;
end;

но координаты для PopupMenu задаются неверно.

[Аватар]

Дык X и Y наверно же координаты курсора при клике. Вот по этим координатам меню и вывалится. А нужно найти координаты выделенного текста. Вот этого не знаю как в ричвью, не пользуюсь им

[doktor255]

procedure TForm1.RichView1RVRightClick(Sender: TCustomRichView;
  ClickedWord: String; Style, X, Y: Integer);
begin
  If RichView1.SelectionExists then
    PopupMenu1.Popup(X, Y);
  end;
end;

[Stilet]

Нет я думаю что лучше так:

 PopupMenu1.PopUp(Mouse.CursorPos.x,Mouse.CursorPos.y);

Потому что Попуп всетки по абсолютным координатам отисовывается.

[Shouldercannon]

Все способы оказались хороши

[doktor255]

Сообщение от Stilet

Нет я думаю что лучше так:

Компонент передал в процедуру координаты мыши. Нет смысла их повторно вытаскивать. Двойная работа проделывается.