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

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