Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > FireMonkey
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 21-05-2012
aquiestamos aquiestamos is offline
Miembro
 
Registrado: ago 2006
Posts: 27
Poder: 0
aquiestamos Va por buen camino
Error con SelStart y SelLength

Hola !!!

Es un tema tonto pero que me trae de cabeza. Estoy intentando usar las funciones SelStart y SelLength en Firemonkey y no consigo que se marque el texto. Por si era tema de calculo de longitudes en las cadenas de texto, probé de manera directa algo como esto:

edt.text := 'ABCDEFGHIJKL' ;
edt.SelStart := 3 ;
edt.SelLength := 5 ;

De forma que se tenía que haber marcado algún texto pero nada. Lo he probado en un proyecto de VCL por si estaba poniendo algo mal, pero si me funciona, así que no sé por donde puede venir el error.

Alguien tiene alguna solución? Gracias de antemano por todo !!!!
Responder Con Cita
  #2  
Antiguo 21-05-2012
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola.

Seguramente el TEdit no tenga el foco cuando ejecutas el código, dependiendo desde donde estés ejecutando tendrías que focalizarlo, como por ejemplo en el evento OnClick de un TButton:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  edt.SetFocus;  // <- darle el foco
  edt.SelStart:= 3;
  edt.SelLength:= 5;
end;

Por supuesto no es nesesario si ya lo tiene como por ejemplo en el evento OnEnter del propio Edit:
Código Delphi [-]
procedure TForm1.edtEnter(Sender: TObject);
begin
  edt.SelStart:= 3;
  edt.SelLength:= 5;
end;

Saludos.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 21-05-2012 a las 03:45:19.
Responder Con Cita
  #3  
Antiguo 22-05-2012
aquiestamos aquiestamos is offline
Miembro
 
Registrado: ago 2006
Posts: 27
Poder: 0
aquiestamos Va por buen camino
Buenas ecfisa, no era eso, ya lo había probado, de echo si lo pruebas en Delphi XE2 veras que no es necesario.

Es algo que no funciona igual en Firemonkey o mas bien, que yo no lo uso bien. Porque el SelLength si marca la posición correcta si le sumas 1.

Seguiré probando a ver.
Responder Con Cita
  #4  
Antiguo 22-05-2012
aquiestamos aquiestamos is offline
Miembro
 
Registrado: ago 2006
Posts: 27
Poder: 0
aquiestamos Va por buen camino
Listo ..... resulta que la propiedad es para los Edit, y yo lo tenía asociado a un ClearingEdit .

No le deis vueltas y gracias por las respuestas !!!!
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
error en la prueba de conexion al inicializar al proveedor. error de autenticacion ygeraldino Conexión con bases de datos 12 21-06-2011 00:51:18
Error al generar instalador con installshield (error 6173) jangel_ramirezm Varios 4 09-12-2008 01:07:54
error:[Fatal Error] Unit1.pas(7): Unit ZDbcConnection was compiled with a different.. karaoke Conexión con bases de datos 2 19-12-2007 11:22:36
¿Por qué me da este error?Error creating cursor manejador nuri SQL 2 01-08-2005 18:30:28
richedit y SelLength Dantael OOP 1 17-01-2005 17:26:49


La franja horaria es GMT +2. Ahora son las 01:54:55.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi