Delphi - Memo Щелкните правой кнопкой мыши Получить номер строки

Question

Как получить номер строки напоминания, когда я щелкаю по нему правой кнопкой мыши?

ListBox имеет .ItemAtPos, но мне не удалось найти подобную функцию

-Brad

Answer 1

В Delphi 2010 TRichEdit имеет свойство ActiveLineNo. Не уверен, существует ли он в Delphi 2009.

Ручной способ получения номера строки состоит в том, чтобы отправить Memo сообщение EM_LINEFROMCHAR со значением WParam, равным -1, то есть:

LineNo := SendMessage(Memo1.Handle, EM_LINEFROMCHAR, -1, 0);

Или:

LineNo := Memo1.Perform(EM_LINEFROMCHAR, -1, 0);

Answer 2

Проверьте собственность CaretPos.