delphi - Delphi-备注右键单击获取行号

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

ListBox具有.ItemAtPos，但我无法找到类似的功能

-布拉德

最佳答案

在Delphi 2010中，TRichEdit具有ActiveLineNo属性。不确定在Delphi 2009中是否存在。

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

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

要么：

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