definir linea y columna en un statusbar

[antonio peña]

a quien corresponda:

mi duda es la siguiente, tengo un richedit, y al tiempo en ke muevo el cursor dentro del mismo me gustaria poner en mi statusbar la linea y la columna en la que esta posicionado mi cursor.

de antemano gracias a todos lo que resuelvan o agranden mi duda

p.d. antes de publicar este hilo he buscado y buscado y no e encontrado algo parecido a lo ke kiero.

hasta la prox

[roman]

Prueba con esto:

Código Delphi [-]
var
  Col, Line: Integer;

begin
  Col := RichEdit1.SelStart - RichEdit1.Perform(EM_LINEINDEX, -1, 0);
  Line := RichEdit1.Perform(EM_LINEFROMCHAR, RichEdit1.SelStart, 0);

  StatusBar1.Panels[0].Text := Format('Col: %d', [Col]);
  StatusBar1.Panels[1].Text := Format('Ln: %d', [Line]);
end;

// Saludos