Delphi - Memo Right Click Get Line Number

How do I get the line number of a memo when I right click on it?

A ListBox has .It开发者_StackOverflow中文版emAtPos but I've not been able to find a similar function

-Brad

In Delphi 2010, TRichEdit has an ActiveLineNo property. Not sure if it exists in Delphi 2009.

The manual way to get the line number is to send the Memo an EM_LINEFROMCHAR message with the WParam value set to -1, ie:

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

Or:

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

Check CaretPos property.