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);