Limitar ingreso a un solo numero

[[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;