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.