Restringir entrada a combobox

[pepecharlie67]

Hola,me gustaria restringir una entrada al combobox,es decir,que el usuario solo pueda introducir integer, y en el caso de introducir un caracter salte una excepcion diciendo que debe introducir un numero.Quisiera saber si existe un filtro en el combobox y como utilizarlo.Gracias

[[Bicho]]

Podrías probar en el evento OnChange del Combobox algo así:

Código Delphi [-]
procedure TForm1.ComboBox1Change(Sender: TObject);
var a : Integer;
begin
  try
    a := StrToInt(ComboBox1.Text);
  except
    ShowMessage('Solo caracteres númericos');
    Combobox1.Text := "";
  end
end;

Si lo quieres hacer más bonito el OnKeyPress puedes validar que el caracter introducido sea un número con

Código Delphi [-]
if key in ['0'..'9']

en caso contrario muestrale un error

Espero que te sirva

Saludos

[dec]

Hola,

Una función curiosa que se ha referido aquí a veces es "TryStrToInt", la cual tratará de convertir un "string" en un "integer", devolviendo "true" si puede hacerlo y "false" en caso contrario.

Tal vez quepa añadir que tanto "TryStrToInt" como "StrToInt" no funcionarán si el número/cadena que trata de convertirse supera al propio tipo "integer". Tal vez esto sea de perogrullo... qué sé yo.

[Albano]

Yo creo que la mejor opcion de las mencionadas anteriormente para lo que quieres es la de on key press, porque al momento de presionar la tecla te verifica que sea numerica y es ahi donde te mostraria el mensaje de error...

Código Delphi [-]
if not(key in['0'..'9', #8]) then

ahi muestras tu mensaje de error y le das abort, para que no se escriba la tecla... lo de #8 lo pones si quieres que puedan borrar con el backspace.

[[Lepe]]

Empezado por Albano

Yo creo que la mejor opcion de las mencionadas anteriormente para lo que quieres es la de on key press

...Solo que no se valida si usa copiar y pegar dentro del combo.

saludos

[pepecharlie67]

Muchas gracias.Al final utilice la opcion de OnKeyPress, y con respecto a ...Solo que no se valida si usa copiar y pegar dentro del combo. en mi caso, me lo hace bien.De todas maneras muchas gracias a todos.FELIZ AÑO!

[Delfino]

"TryStrToInt" como "StrToInt" no funcionarán si el número/cadena que trata de convertirse supera al propio tipo "integer"

Para eso estan las funciones del mismo nombre con sufijo 64; TryStrToInt64 y StrToInt64..