Saber la posicion del cursor dentro de un TMemo  

Enviado Por: Q3 Team
Web : www.q3.nu
Email: dlib@q3.nu
Fecha: 13/12/99

Truco accedido 88 veces

 


Basta con ejecutar el siguiente código:


 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);   		{Linea / Line}
      Label2.Caption:=IntToStr(Cpos);		{Columna / Column}
      Label3.Caption:=IntToStr(LineLength);	{Longitud de la linea / Long of line}
 end;