Delphi - Memo-Rechtsklick für Zeilennummer

Question

Wie erhalte ich die Zeilennummer eines Memos, wenn ich mit der rechten Maustaste darauf klicke?

Eine ListBox hat .ItemAtPos, aber ich habe nicht in der Lage gewesen, eine ähnliche Funktion zu finden

-Brad

Answer 1

In Delphi 2010 hat TRichEdit eine ActiveLineNo-Eigenschaft. Ich bin nicht sicher, ob sie in Delphi 2009 existiert.

Der manuelle Weg, die Zeilennummer zu erhalten, besteht darin, dem Memo eine EM_LINEFROMCHAR-Nachricht zu senden, wobei der WParam-Wert auf -1 gesetzt wird, d.h:

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

Oder:

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

Answer 2

Prüfen Sie die Eigenschaft CaretPos.