德尔福 - 备注右键单击获取行号

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