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. |
|
|
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 |
|