como agrego '/' a un tedit??

[Fingolfinmx]

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.

[vtdeleon]

Saludos

Prueba con #191

[Fingolfinmx]

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.

[vtdeleon]

ejemplo : 21/ ... 21/0....21/04/. al final 21/04/83.

Vaya, que cómodo.

Hazlo con un MaskEdit

[roman]

¿Por qué no mejor usas un MaskEdit? Ese control ya se encarga de poner las barras o cualquier otro formato que desees.

// Saludos

[Fingolfinmx]

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

[ContraVeneno]

... ¬¬

¿porque no usar un DTPicker en lugar de un mask?
¬¬

[[xEsk]]

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.