Limitar ingreso a un solo numero

[arespremium]

Hola como se puede limitar el ingreso a un Edit con un solo caracter o numero

Es diferente hacerlo que solo reciba numero o letras?

Tambien como puedo hacer un salto, Luego que se ingresa ese unico caracter al Edit1 salta hacia el Edit2

ver_imagen

Ejemplo:
Ingreso un caracter al Edit1, luego presiono Enter y se dirige hacia el Edit2

Saludos

[[Delphius]]

Hola arespremium,

Existe una propiedad que te permite indicar la cantidad máxima de caracteres que se pueden expresar en un Edit. Se trata de MaxLength, y por defecto es de valor 0 (que indica que no tiene longitud máxima estrablecida). Con ella consigues lo que deseas.

Como en el Edit se recibe un string deberás hacer la transformación/comprobación de si es un entero. Hay muchas maneras de conseguir esto, se puede hacer mediante el evento OnKeyPress, con un try/except... empleando StrToInt si se está seguro de que se ha ingresado un número... en fin... muchas opciones. Si buscas en los foros notarás que hay mucha referencia al respecto. ¿Por que no pruebas con estos términos: "validar numero" o "convertir numero"?

Por otro lado, existe controles que te pueden evitar estos males. Si el número a ingresar responde a un rango definido de valores puede emplear un SpinEdit. O incluso un MaskEdit.

Sobre como simular el Tab con el ENTER. Ya fue tratado, nuevamente puedes recurrir a una búsqueda. Y como alternativa, en trucomania está el truco: "como simular TAB con ENTER".

Te recuerdo que has hecho muchas preguntas en un mismo post, preguntas que si bien hacen a tu problema/objetivo deberían haberse tratado por aparte. Esto está contemplado en la guia de estilo.

Saludos,

[tazzmk]

Hola a todos
yo tengo algo alomejor te sirve

1.- como se puede limitar el ingreso a un Edit con un solo caracter o numero

crear un formulario, añadir un Edit y escribir el siguiente código:

Sub edit1_Keypress(KeyAscii As Integer)
    If KeyAscii <> Asc("9") Then
    'KeyAscii = 8 es el retroceso o BackSpace
       If KeyAscii <> 8 Then
           KeyAscii = 0
       End If
    End If
End Sub

Nuevo:

Private Sub edit1_Keypress(KeyAscii As Integer)
If Not IsNumeric(Chr$(KeyAscii)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

2.- como puedo hacer un salto, Luego que se ingresa ese unico caracter al Edit1 salta hacia el Edit2

Pasar de un edit a otro al pulsar Enter:

Insertar dos edit y escribir el siguiente código:

Private Sub edi1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

Private Sub edi2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
KeyAscii = 0
End If
End Sub

eso seria

[[Gabo]]

Pero eso es en Visual Basic...

[[Delphius]]

Gabo, me robaste las palabras.
Igualmente creo que ya arespremium tiene lo que buscaba:
MaxLength
SpinEdit (mi opción)
MaskEdit

Saludos,

[[Gabo]]

Solo quiero agregar el código que uso cuando un TEdit va a tener sólo números.

__fastcall TForm1::TForm1(TComponent* Owner)
                             :TForm(Owner)
{
    LONG dwStyle = GetWindowLong(Edit1->Handle, GWL_STYLE);
    SetWindowLong(Edit1->Handle, GWL_STYLE, dwStyle | ES_NUMBER);
}

Con esas dos líneas hago que el Edit1 sólo permita números.
Recuerden que yo programo en C++Builder, pero en Delphi se debe poder hacer también de la misma forma. Si alguien quiere traducir el código...

[tazzmk]

hola, perdon me confundi con el lenguaje

aca va de nuevo pon este código en el evento OnKeyPress de tu TEdit y sólo admitirá números

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin 
  if ( StrScan('0123456789.-',Key) <> nil ) or 
     ( Key = Char(VK_BACK) ) then { BackSpace Key }
  begin 
    {Aqui tu tratamiento normal del evento}  
  end 
  else 
    Key := #0; 
end;