Delphi - Memo右键单击获取行号

Question

如何在右键单击备注时获取备注的行号？

ListBox有.ItemAtPos，但我找不到类似的函数

-Brad

Answer 1

在Delphi2010中，TRichEdit有一个ActiveLineNo属性。不确定它是否存在于Delphi 2009中。

手动获取行号的方法是向备忘录发送一条WParam值设置为-1的EM_LINEFROMCHAR消息，即：

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

或者：

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

Answer 2

检查CaretPos属性。