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.