Como limitar ingreso de l 1 al 10 en un edit

[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

[ecfisa]

Empezado por Caral

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

Yo también experimento ese sentimiento de ContraVeneno...

No se porque me dieron ganas de darle un zape a tu maestro

(Aunque no se lo que es un 'zape' creo que pensamos en lo mismo)

Un saludo.

[ContraVeneno]

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

a la hora de "los trancazos", o dicho de otra forma, cuando hay que entregar el trabajo, la manera más "creativa", siempre será la más sencilla y rápida, la de menos esfuerzo. Y el spinedit es eso, la solución más sencilla de menor esfuerzo y mucho más funcional que cualquier código que me digas. Si, el código es muy bonito y puede funcionar, pero deja que el profe le diga: "a ver... ¿qué pasa cuando le doy cortar y pegar a un texto en ese Edit?". Usar la materia gris no quiere decir escribir mucho código.

SpinEdit: modifcar dos o tres propiedades.
Edit: ¿cuantas líneas de código llevan ya?, ¿que pasa si le doy cortar y pegar a un texto?

Empezado por ecfisa

Yo también experimento ese sentimiento de ContraVeneno...


(Aunque no se lo que es un 'zape' creo que pensamos en lo mismo)

Un saludo.

Acción de dar un zape:

[pnsd_89]

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