delphi - Delphi - メモ 右クリックで行番号を取得

Question

メモを右クリックしたときにメモの行番号を取得するにはどうすればよいですか?

ListBox には .ItemAtPos がありますが、同様の関数を見つけることができませんでした

-ブラッド

Answer 1

Delphi 2010 では、TRichEdit に ActiveLineNo プロパティがあります。Delphi 2009 に存在するかどうかは不明です。

行番号を手動で取得する方法は、WParam 値を -1 に設定した EM_LINEFROMCHAR メッセージを Memo に送信することです。つまり、次のようになります。

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

または：

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

Answer 2

CaretPos プロパティを確認してください。