Foros Club Delphi - Format a un TEdit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Format a un TEdit (https://www.clubdelphi.com/foros/showthread.php?t=68404)

Viky	11-06-2010 13:59:37

Format a un TEdit

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

11-06-2010 14:49:42

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.

La franja horaria es GMT +2. Ahora son las 21:25:13.