Определить положение курсора в TWebBrowser в режиме редактирования

Question

Я получаю диапазон выбора вот так:

var
  Range: IHTMLTxtRange;
begin
  if Supports((Document as IHTMLDocument2).selection.createRange,
    IHTMLTxtRange, Range)
end;

TWebBrowser в редактировании. Мне нужно получить позицию курсора. Как я могу получить ее?

Answer 1

IHTMLTxtRange определяет несколько атрибутов, чтобы получить то, что вам нужно.

Но ключевыми элементами являются boundingLeft и boundingTop

Эта ссылка содержит некоторые подробности о том, как она работает.