Get MEMO, Richedit cursor position:
procedure TForm1.Button1Click (Sender: TObject); var Row, Col: integer; begin Row: = SendMessage (Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); Col: = CustEdit.SelStart - SendMessage (Memo1.Handle, EM_LINEINDEX , -1, 0); Edit1.Text: = 'row, column:' INTOSTR (ROW) ',' INTOSTR (COL);
Supersoyonc@sohu.com
