[Galosh]

Привожу исходник вывода позиции курсора в редакторе на основе richedit. Вывод позиции производится на statusbar.


procedure TForm1.RichEdit1SelectionChange(Sender: TObject);
var ro,co:integer;
begin
ro:=richedit1.perform(EM_LINEFROMCHAR,richedit1.selstart,0);
co:=richedit1.selstart -richedit1.perform(EM_LINEINDEX,ro,0);
statusbar1.panels[0].text := format('row:%d',[ro+1]);
statusbar1.panels[1].text := format('col:%d',[co+1]);
*end;