Como limitar ingreso de l 1 al 10 en un edit

[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

[ContraVeneno]

Empezado por 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

¿probaste el spinedit?
yo no veo otra cosa más rápida que utilizar el spinedit, establecer dos o tres propiedades y listo. Sin código, sin conversiones, sin validaciones....

[[oscarac]]

el uso del SpinEdit seria una buena solucion, pero.. creo yo... que el inefable profesor de la Republica Dominicana pretende enseñar a los alumnos a tener algo de creatividad y a usar la materia gris para solucionar problemas que aparentemente son faciles, pero como veran... dependen de ciertas variables y que al mismo tiempo todos tenemos una solucion diferente y similar sobre un mismo problema

[ecfisa]

Hola Chino150.

Sumo otra alternativa a las que ya te han sugerido los compañeros:

Código Delphi [-]
...
interface

(* Inicializar TEdit's, asignar eventos *)
procedure TForm1.FormShow(Sender: TObject);
var
  i: Integer;
begin
  for i:= 0 to ComponentCount -1 do
    if Components[i] is TEdit then
    begin
      TEdit(Components[i]).Text:= ''; // aca poné lo que el profesor quiera que se visualice
      TEdit(Components[i]).OnKeyPress:= EditKeyPress;
      TEdit(Components[i]).OnChange:= EditChange;
    end;
end;

(* Verificar sólo números *)
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  if not (Key in [#8,'0'..'9']) then
  begin
    MessageBeep(MB_ICONERROR);
    Key:= #0;
  end;
end;

(* Verificar rango 1-10 *)
procedure TForm1.EditChange(Sender: TObject);
var
  v: Integer;
  s: string;
begin
  s:= TEdit(Sender).Text;
  if TryStrToInt(TEdit(Sender).Text, v)and(v < 1) or (v > 10)  then
  begin
    ShowMessage('Valor máximo/minimo permitidos: 1-10');
    TEdit(Sender).OnChange:= nil;
    Delete(s,Length(s),1);
    TEdit(Sender).Text:= s;
    TEdit(Sender).SelStart:= Length(s);
    TEdit(Sender).OnChange:= EditChange;
  end;
end;

Y coincido también que la petición es un poquito rebuscada...

Un saludo.

[[Caral]]

Hola
Me gusta mucho.
Muy legible, facil, hecho especialmente para el profe de Chino150 que le gusta el codigo.
Saludos

[pnsd_89]

aaa si el valor es mayor que 10 sacas el mensaje en el OnExit del edit

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

[ContraVeneno]

no bueno, es que el zape aquí es con la mano abierta y en la parte posterior de la cabeza... igualito que en la imagen...

y el coscorrón es con la mano cerrada, generalmente en la parte frontal, de la cabeza, pero puede ser en cualquier parte de la cabeza.... pero que mejor que una imágen para que se vea claramente; Coscorrón:


como veras, en mi pueblo el zape y el coscorrón son diferentes.
el zape es más despectivo y el coscorrón es más doloroso.

[ecfisa]

Empezado por ContraVeneno

no bueno, es que el zape aquí es con la mano abierta y en la parte posterior de la cabeza... igualito que en la imagen...

Entonces no vi bién la imagen...

Aca 'coscorrón' es un golpe en la cabeza generalmente con los nudillos. Creo que no tenemos un término para dar un 'sopapo' en la coronilla, al menos yo no conozco uno. ( 'sopapo' generalmente se aplica al golpe mano abierta en la cara y 'chirlo' los dados en la cola a los niños idem al anterior)

Así que podríamos incorporar 'zape'...


Un saludo.

[[Caral]]

Hola
Por cierto, nunca he usado el spinedit, donde esta?, es un componente de terceros, por que no lo encuentro en mi delphi 6.
Saludos

[ecfisa]

Hola Carlos.

En Delphi 7 está en la pestaña Samples, desconozco si lo trae la versión 6...

Un saludo.