Como limitar ingreso de l 1 al 10 en un edit

[chino150]

Empezado por Caral

Hola

Código Delphi [-]
procedure TForm1.Edit1Change(Sender: TObject);
var valor: integer;
begin
Valor:= 10;
If Valor < StrToInt(Edit1.Text) then
Showmessage('es mayor de 10');
end;



Saludos

Ok gracias como lo logro para 15 edit con la misma condicion

[[Caral]]

Hola
El evento ONChange de cada edit que apunte al evento onchage del edit1.
Tambien puedes hacer un procedure que todos apunten a este.
Saludos

[[Caral]]

Hola
Te va a dar un error (NO ES UN VALOR INTEGER), esto si los edits estan en blanco y apuntan al mismo evento.
Solucion: Colocar en el text de cada edit un 0.
Saludos

[ContraVeneno]

¿no sería más sencillo utilizar un SpinEdit?

al menos no tendrías que escribir nada de código.

[chino150]

Empezado por ContraVeneno

¿no sería más sencillo utilizar un SpinEdit?

al menos no tendrías que escribir nada de código.

El ejecicio dise que debe ser edits normales

[ContraVeneno]

Empezado por chino150

El ejecicio dise que debe ser edits normales

a caray... no todo lo que te enseñen en la escuela va a ser verdad...

no puedes construir puentes resistentes con palillos de dientes... aunque el ejercicio diga que sí...

utiliza el código de mi amigo Caral, si así es tu ejercicio, pero definitivamente debes de mostrarles que utilizando SpinEdits no tendrían que romperse la cabeza.

P.D. No se porque me dieron ganas de darle un zape a tu maestro, por cerrar puertas en lugar de fomentar la creatividad... shale...

[pnsd_89]

y si coloca el maxleng en 2 y en el Onkey hace que las teclas permitidas solo sean las numericas? seria lo mas rapido creo yo

[[oscarac]]

Empezado por chino150

El ejecicio dise que debe ser edits normales

no quiero iniciar un debate ni nada parecido...

pero hay veces en que debemos usar solo lo que tenemos para luego entender su uso y ver que otras potencialidades podemos utilizar de los recursos que poseemos

y si dice que deben ser edits normales... pues ni modo... que sean normales...

[ContraVeneno]

totalmente de acuerdo, mi buen oscarac, debemos saber lo que tenemos y lo que podemos y no podemos hacer con eso que tenemos.

Y en este momento, tenemos un Edit que no fue diseñado para manejar solo números y tenemos un spinedit que fue diseñado específicamente para manejar solo números. Si el profe de nuestro amigo Chino, no conoce los spinedits, seguramente tendrá muchos dolores de cabeza cuando quiera manejar solo números. Pero su falta de conocimiento no debe implicar que transmita sus mismos dolores de cabeza a sus alumnos.

Sería diferente si te dijera que existe un TjvValidateEdit (que no viene "de fábrica" en Delphi) , que es mucho mejor que el spinedit.

Simplemente no entiendo porque debo tomar el camino más largo, cuando se que puedo resolver mi problema de la manera más sencilla. O tal vez será que a mi no me gusta escribir código (porque yo no cobro por líneas de código, cobro por lo que he aprendido... y se que el spinedit es mucho más sencillo y más elegante que utilizar un edit en este caso).

Y como dije antes, si lo quieren hacer por código, háganlo por código. Pero discutan si realmente hacer todo por código es la mejor opción, cuando sabes que existe el spinedit.

[ecfisa]

Hola.

¿qué pasa cuando le doy cortar y pegar a un texto en ese Edit?

Hay que teclear en el evento OnExit, complicando más el código que ya lo es bastante...

Y vista la explicación de 'zape', si, efectivamente pensamos en lo mismo ( aca 'coscorron' ). Aunque me avergüenza confesar que también me cruzaron peores ideas...

Un saludo.

[chino150]

Empezado por Caral

Hola
Te va a dar un error (NO ES UN VALOR INTEGER), esto si los edits estan en blanco y apuntan al mismo evento.
Solucion: Colocar en el text de cada edit un 0.
Saludos

Esto es un problema para mi porque cuando arranca el programa los edits debe estar vacios

[[Caral]]

Hola
Y por que es un problema si todo tiene solucion?.
Saludos

[chino150]

Empezado por Caral

Hola
Y por que es un problema si todo tiene solucion?.
Saludos

El profesor no quiere que los edits esten en blanco cuando inicie el programa

[[Caral]]

Hola
No entiendo:
Tienen o NO tienen que estar en Blanco los edits?
Saludos