Format a un TEdit

Viky · #1 11-06-2010

Como puedo hacer para que un TEdit solo me acepte numeros desde el 01 al 99 o sea numeros de dos cifras.
Gracias
Viky

marcoszorrilla · #2 11-06-2010

Pon el MaxLength del Edit a 2.

Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in [#8,'0'..'9']) then
key:=#0;

end;

Un Saludo.

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Problemas con Format()	RoyTan	Varios	7	10-02-2008 20:15:24
Como se usa el Format?	Tapax	C++ Builder	4	26-05-2006 22:53:51
Format %s error	FunBit	Varios	2	07-12-2005 16:48:48
Problema con format	santiago14	Varios	1	18-08-2005 20:29: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