代码如下:
int ln, col;
ln = (int)::SendMessage(RichEdit1->Handle, EM_LINEFROMCHAR, -1, 0) + 1;
col = (int)::SendMessage(RichEdit1->Handle, EM_LINEINDEX, -1, 0) + 1;
Form1->StatusBar1->Panels->Items[2]->Text ="行"+IntToStr(ln)+",列"+IntToStr(RichEdit1->SelStart-col+2);