Posición en un TMemo
 

Buenas,

Quisiera saber cómo obtener la posición del cursor en un TMemo (esto es, fila y columna). Encontré este código en trucomanía.

Código Delphi [-]
var
Lpos,Cpos,LineLength:integer;
begin
Lpos:=SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
Cpos:=SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0);
LineLength := SendMessage(memo1.handle, EM_LINELENGTH, Cpos, 0);
CPos:=Memo1.SelStart-CPos;
Label1.Caption:=IntToStr(Lpos);
Label2.Caption:=IntToStr(Cpos);
Label3.Caption:=IntToStr(LineLength);
end;

La cuestión es que funciona bien, excepto cuando estoy seleccionando texto (hace cosas raras).

¿Alguien sabe cómo solucionarlo?

Muchas gracias.

Hola

Solo has esto:

memo1.CaretPos.X;// Obtiene la fila
memo1.CaretPos.Y;// Obtiene la columna

saludos

Hola

De parte de mi sobrino ( ixMike ), que sigue dando el mismo fallo ( creo que los de Borland usaron el mismo codigo )

Si alguien tiene otra solución mejor...

Saludos !!