FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
como agrego '/' a un tedit??
Hola, quisiera saber como agregar '/' a un Tedit despues de poner 2 caracteres, (numeros o letras es igual) esto con el fin de al momento de dar un alta de una FECHA tenga el formato que yo quiero por ejemplo: 21/04/83, tambien quisiera meter ese codigo en un ONKEYPRESS, este es mi codigo actual (Que no hace lo que necesito):
procedure Tfrmcaptura.Edit1KeyPress(Sender: TObject; var Key: Char); begin if key=#13 then//Para Presionar Enter begin if edit1.text ='' then showmessage(' Introduzca la Fecha') else Perform(WM_NEXTDLGCTL, 0, 0) end; Begin if key=#32 then //Para Poder presionar Barra Espaciadora else if key=#8 then //Para Poder presionar Backspace (Borrar) else If not (key in ['0'..'9','/']) then key:=#0; end; end; como pueden observar lo unico que necesito es aclarar mi duda, por cierto al presionar ENTER me enviara a otro Tedit por lo tanto no tiene que tener fin el bucle para agregar '/'. espero haberme expresado de la mejor manera y espero que me ayuden. |
#3
|
|||
|
|||
nope....
lo que quisiera es que despues de darle los 2 numeros desde el teclado , automaticamente te agregue '/' sin tener que escribirlo tu , algo asi como un edit1.text:=edit1.text+'/'; (jaja claro eso no sirve pa pura madre ) esa es mi duda, no puedo hacer que me agregue automaticamente un '/' y poder seguir escribiendo... ejemplo : 21/ ... 21/0....21/04/. al final 21/04/83.
|
#4
|
||||
|
||||
Cita:
Hazlo con un MaskEdit
__________________
Van Troi De León (Not) Guía, Code vB:=Delphi-SQL, ¿Cómo? Viajar en el tiempo no es teóricamente posible, pues si lo fuera, ya estarían aqui contándonos al respecto! |
#5
|
||||
|
||||
¿Por qué no mejor usas un MaskEdit? Ese control ya se encarga de poner las barras o cualquier otro formato que desees.
// Saludos |
#6
|
|||
|
|||
jaja ahora entiendo , por ke me gusta mas resolver mis dudas por chat, la verdad estoy de Auto didacta en el Delphi 5, y no se como aplicar el MaskEdit, soy un Completo NOOOOOB jaja pero que mejor manera de aprender que echando a perder
|
#7
|
||||
|
||||
... ¬¬
¿porque no usar un DTPicker en lugar de un mask? ¬¬
__________________
|
#8
|
||||
|
||||
En mi opinion hace bien de hacerse el mismo las rutinitas, y mas si dice q esta aprendiendo, ya q la mejor forma de aprender es hacerlo por ti mismo, y no cojer un componente q ya te lo da todo hecho. Mas adelante cuando ya tienes una base un poco solida, entonces si es logico usar componentes q te hacen la vida mas facil.
Esta es mi humilde opinion. Saludos. |
|
|
Temas Similares | ||||
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 |
|