Saber en qué línea de un TRichEdit estoy

[cozina]

Hola, debe ser fácil pero me he liado con esto y no doy con la forma de conseguirlo.
Tengo un TRichEdit con varias líneas de texto.
Si hago 'click' con el ratón en cualquier línea, ¿cómo sé el número de línea en que acabo de posicionar el cursor?
Gracias.

[ecfisa]

Hola cozina.

Código Delphi [-]
procedure TForm1.RichEdit1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  RE: TRichEdit;
  Col, Row: Integer;
begin
  RE := TRichEdit(Sender);

  Row := RE.Perform(EM_LINEFROMCHAR, RE.SelStart, 0);
  Col := RE.SelStart - RE.Perform(EM_LINEINDEX, Row, 0);
  // (Valor de línea y columna(Row/Col) en base cero)

  ShowMessage(Format('Linea: %d, Columna: %d',[Row, Col]));
end;

Saludos

[cozina]

Muchas gracias, funciona perfecto
Yo estaba mirando el evento click del ratón, no se me ocurrió probar el down.
Y si quiero hacer justo al contrario, darle un número de línea y que se posicione en pantalla esa línea, ¿es posible?
Gracias.

[ecfisa]

Hola cozina.

Empezado por cozina

...
Y si quiero hacer justo al contrario, darle un número de línea y que se posicione en pantalla esa línea, ¿es posible?

Si, claro que es posible. Pero al ser una consulta distinta a la inicial, te agradecemos que la hagas en un nuevo hilo para facilitar las búsquedas.

Saludos y gracias por tu colaboración

[cozina]

Ok, gracias
Aquí está la nueva pregunta: Posicionar en una fila de un richedit

*