method one:
Add: Var Row, Col: Integer; Beginwith Richedit1 DoBegin // Get the line number row at the beginning of the selection: = sendMessage (Handle, EM_LINEFROMCHAR, SelectStart, 0); // Get the column number col: = SELSTART -sendMessage (Handle, EM_LINDEX, ROW, 0); statusbar1.panels [0] .text: = format (('% d line% D Column'), [Row, Col]);
Method Two:
varLineNum: longint; CharsBeforeLine: longint; beginLineNum: = SendMessage (Memo1.Handle, EM_LINEFROMCHAR, Memo1.SelStart, 0); CharsBeforeLine: = SendMessage (Memo1.Handle, EM_LINEINDEX, LineNum, 0); edit2.Text: = (inttostr ( LINENUM 1) 'Row' INTOSTR ((Memo1.Selstart -CharsbeForeLine) 1) 'column';
