![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Gracias HySTD funciona bien el codigo y aclaraste perfectamente mi duda,
use el maskedit que me dijeron y no me agrado mucho. supongo que esta linea : Edit1.SelStart:=Length(Edit1.Text); posiciona el cursor de texto para ke puedas estar almacenando un edit1.text y escribiendo continuamente como aqui: Edit1.Text:=Edit1.Text+'/'; sin que te borre la otra entrada. muchas gracias por su tiempo. seguire molestandolos mas a futuro tenganlo por seguro. |
#2
|
||||
|
||||
¿Y qué pasa cuando borras un caracter con BackSpace o DELETE? ¿Lo has probado?
// Saludos |
#3
|
|||
|
|||
Eso tiene facil solucion. Haces que el contador sólo cuente cuando lo desees:
if (key<>VK_DELETE) or (key<>VK_SPACE) then begin inc(contador); ... end; Asi ignoras si se pulsa espacio o supr. ![]() La unica ventaja de realizarlo de esta manera es que así escribes tu el código (que es mas divertido), a utilizar otros componentes y/o otras funciones ya implementadas, que por otro lado están muy bien... Cada uno hace lo que quiere, y el quería usar un TEdit y utilizar el evento OnKeyPress. ![]() Saludos |
#4
|
||||
|
||||
Ya. Entonces el código queda así:
Pero si escribo, por decir algo, "1", luego BACKSPACE, luego "2" y "3", en el Edit aparece "2/3". Ya no está resultando "mucho más fácil", ¿no crees? // Saludos |
#5
|
|||
|
|||
Bueno eso que has dicho es cierto, pero tampoco hay que dramatizar
![]() cada vez que se pulse una tecla, en vez de contar los caracteres que pulsamos, (incluyendo el BackSpace o el Delete...), podemos capturar la longitud de la cadena contenida en el TEdit +1 (puesto que el evento ocurre antes de que aparezca el caracter pulsado), y si es multiplo de 3 (puesto que '/' ocupa las posiciones 3n), entonces añadimos el '/', con la condicion de filtrar solo aquellas teclas que nos interesan (todas menos BackSpace y Delete). Ahi os dejo el codigo:
la linea comentada como //añadido... sirve para que, por si algun casual se posiciona el cursor en una posicion distinta a la ultima, al presionar la tecla, se escriba forzosamente al final...(esta linea es opcional, a gusto de lo que se quiera...) Bueno eso es todo. Saludos Última edición por HySTD fecha: 20-09-2006 a las 15:26:09. |
#6
|
||||
|
||||
¿que pasaría cuado un usuario copia una fecha incorrecta de algún otro lado y la pega en este control?
__________________
|
#7
|
|||
|
|||
Pues dicho usuario tendria que borrarla y escribirla correctamente... ¿A que tipo de fechas erroneas te refieres? a algo del tipo: 56/02/0E? Quizas se pueda realizar un parser, pero vamos no creo que merezca la pena para escribir algo tan simple como es una fecha... ya que de copiar una fecha con este tipo de error, requiere de una visita urgente al oculista...
![]() P.D.: El origen de este hilo era ayudar a insertar '/' en un TEdit, cada 2 caracteres, usando el evento OnKeyPress (tal y como queria Fingolfinmx). El tema de "copiar y pegar" habria que tratarlo de otra manera. Saludos... Última edición por HySTD fecha: 20-09-2006 a las 16:59:12. |
![]() |
|
|
![]() |
||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Como agrego un modulo a varios proyectos | Rmartin | Varios | 1 | 14-08-2006 19:46:45 |
Como Realizar una consulta desde un Tedit? | ing.cagn | SQL | 7 | 06-01-2006 20:47:12 |
tchar , como agrego datos ? | genarol | Varios | 3 | 29-11-2004 19:43:18 |
Pasar el valor de un TEdit dentro de un StringGrid a otro TEdit que está fuera | atirado | Varios | 4 | 11-09-2004 19:13:48 |
Como agrego el componente BDEClientDataSet en delphi 7 | xtrem77 | Conexión con bases de datos | 2 | 20-11-2003 00:31:57 |
![]() |
|