Limitar ingreso a un solo numero

[[Gabo]]

Empezado por Caral

Hola arespremium
Lo que te han dicho los maestros es muy cierto, pero si necesitas que sea muy sencillo, pues no necesitas nada.
Sin cambiar nada en el edit, lo unico que necesitas es usar el evento OnChage.
Supongamos que tienes 2 edits, en uno quieres colocar un solo caracter o numero y cuando esto pase cambie el foco al siguiente, pues haces esto:
En el evento OnChange del Edit1:

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
edit2.SetFocus;
end;



Como ves, simplisimo, no hay manera de que se coloque mas de un caracter o numero en el edit1.
Ahora si necesitas que solo sean numeros, yo prefiero usar este componente, que funciona igual que el edit solo que no acepta letras.
Saludos

Pero me parece que con ese código, si el usuario entra de nuevo en Edit1, podrá escribir un segundo caracter y así sucesivamente...

En eso estoy con Delphius, es mejor acotar el número de caracteres permitidos con MaxLength.

[MON___]

Existen muchas formas. Cuando he querido que en un TEDIT sólo se introduzca un valor numérico (0 a 9) siempre he empleado este código:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (key in ['0'..'9', char(VK_BACK)]) then
begin
key := #0;
messageBeep(0); // un pitido para indicar que no se ha introducido un carácter válido
end;
end;

[[Caral]]

Hola
Es muy cierto.
La maravilla de delphi, se pueden hacer las mismas cosas de muchas maneras.

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
 edit2.SetFocus;
 edit1.ReadOnly:= true;
end;

No es que tenga nada en contra de la propiedad MaxLength, solo trato de dar opciones, asi aprendemos mas.
Saludos

[CamiloU]

Hola. hay un hilo que se llama "Problemas para capturar valor de OnKeyPress". Revísalo, te puede servir.

[[maeyanes]]

Hola...

Empezado por Caral

Hola
Es muy cierto.
La maravilla de delphi, se pueden hacer las mismas cosas de muchas maneras.

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
begin
 edit2.SetFocus;
 edit1.ReadOnly:= true;
end;

No es que tenga nada en contra de la propiedad MaxLength, solo trato de dar opciones, asi aprendemos mas.
Saludos

Y si luego quiero modificar el valor que ya puse en ese edit por que me doy cuenta que no era ese el que iba? Con tu código ya no podría hacer ese cambio...

Lo mejor es usar la propiedad ya sugerida... MaxLenght que para eso está...


Saludos...

[[Gabo]]

Empezado por maeyanes

Hola...

Y si luego quiero modificar el valor que ya puse en ese edit por que me doy cuenta que no era ese el que iba? Con tu código ya no podría hacer ese cambio...

Lo mejor es usar la propiedad ya sugerida... MaxLenght que para eso está...

Saludos...

Ya lo había pensado también, pero si se trataba de aprender, siempre habrán soluciones como volver a habilitar el Edit1, o no bloquearlo y hacer que cuando el usuario entre se borre lo que ya tiene, en fin...

Siempre se pueden hacer las cosas de distintas maneras, eso es algo inherente a la programación (no sólo de Delphi)... Aunque a la larga, de la gama de soluciones, es lógico que ocupemos aquella solución que sea más simple de llevar a cabo.

[courtois]

O tambien podrian usar un TMaskEdit y ponerle una mascara de modo que acepte solo un numero o una letra

[arespremium]

Hola gracias por su apoyo el "MaxLenght" funciona, todo bien, pude limitar el numero de ingreso y dar un salto al siguiente Edit.

pero no entiendo sobre como modificar el ingreso ya que una ves que se ingresa no se puede modificar queda fijo.

Gracias !! son muy amables

[fidel]

Mira a ver si te sirve esto, solo lo he probado una vez y parece que funciona, te permite meter un solo dígito numérico en Edit1 y pasar automaticamente al siguiente componente (sea edit u otro) y si vuelves al edit te permite reemplazar el dígito numérico por otro si lo seleccionas, o borrarlo y escribir otro nuevo.

Edit1 debe tener su propiedad MaxLength a 1 para no permitir entrar más de un dígito.

Si lo que quieres es que solo adimita letras o un determinado número de caracteres reemplaza los números 0123456789 por lo que necesites en la linea
if ( StrScan('0123456789'+chr(7)+chr(8), Key) = nil ) then

Pon esto en el evento OnKeyPress del Edit1

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if ( StrScan('0123456789'+chr(7)+chr(8), Key) = nil ) then
    //controlar entrada solo dígitos numéricos 0..9
    begin
      key := #0;
    end
  else
    begin
      if (key <> #7) and (key <> #8) then
        //si se entró un número se pasa al siguiente componente
        perform(wm_nextdlgctl,0,0);
    end
end;