Programación General => Delphi => Mensaje iniciado por: Ac1d0 en Sábado 20 de Mayo de 2006, 00:50
Título: Validacion
Publicado por: Ac1d0 en Sábado 20 de Mayo de 2006, 00:50
quisiera que me ayudaran a validar cunatos tigitos y ke digitos meter en un edit y para validar un maskedit tipo datetime
Título: Re: Validacion
Publicado por: zeraf_ en Martes 6 de Junio de 2006, 05:17
:hola: En el evento KeyPress del Edit puede validar que conjunto de teclas desea que sean admitidas, aunque con Shift+Insert se puede pegar lo que hay en el portapapeles de Windows.
Por ejemplo, para que solo sean admitidas las teclas "0123ABCDabcd"
Código: Text
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if StrScan('0123ABCD', UpCase(key)) = nil then
Key := #0;
end;
La longitud la puedes validar con la propiedad MaxLength del TEdit.