(VCL, TRichEdit, TMemo) Как узнать, на какой строчке в TMemo находится курсор ?

---

Вопрос: (VCL, TRichEdit, TMemo) Как узнать, на какой строчке в TMemo находится курсор ?

---

Ответ:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
int LineNumber = Memo1->Perform(EM_LINEFROMCHAR, -1, 0);
Edit1->Text = LineNumber ;
}

void __fastcall TForm1::Button2Click(TObject *Sender)
{
int LineNumber = RichEdit1->Perform(EM_LINEFROMCHAR, -1, 0);
Edit1->Text = LineNumber ;
}