delphi - Delphi - 备忘录右键获取行号

Question

右键单击备忘录时如何获取备忘录的行号？

ListBox 有 .ItemAtPos 但我找不到类似的功能

-布拉德

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 属性。