SpinEdit

[javier.m866]

Hola, mi problema es el siguiente:
Tengo un Edit que quiero validarlo para que solamente admita caracteres del 0 al 10 (eso lo resolví poniendo un SpinEdit Maxvalue 10 MinValue 0) ahora, nunca he utilizado este componente.
Tengo una variable (campo1) de tipo integer y un label y quisiera que cuando el Spinedit tenga como valor 1 la variable almacene este valor, si lo cambia a 3 entonces que tome este otro y a su vez que el label me muestre el valor que guarda la variable campo1

Código Delphi [-]
//no sirve 
campo1:=BsSkinSpinEdit1.value;
//no sirve
campo1:=BsSkinSpinEdit1.text;

¿Pudieran ayudarme con esto?
Muchas gracias de antemano

[Paulao]

es esto que quieres o no?

if BsSkinSpinEdit1.value = 1 then
campo1 := BsSkinSpinEdit1.value
else
campo1 := 3;
Label1.Caption := IntToStr(campo1);

Si no es esto, favor explicarlo mejor, pues es lo que yo entendi.

[Caminante]

A mi me funciona bien

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var
  N:integer;
begin
  n:=spinedit1.Value;
  label1.caption:=inttostr(n)
end;

[javier.m866]

Empezado por Paulao

es esto que quieres o no?

if BsSkinSpinEdit1.value = 1 then
campo1 := BsSkinSpinEdit1.value
else
campo1 := 3;
Label1.Caption := IntToStr(campo1);

Si no es esto, favor explicarlo mejor, pues es lo que yo entendi.

Si, esto es lo que quiero exactamente pero no me funciona

[ecfisa]

Empezado por javier.m866

Si, esto es lo que quiero exactamente pero no me funciona

Hola Javier.

¿ A que te refieres al decir que no te funciona ? ¿ No muestra el resultado, el resultado que muestra no es el que esperas ?

Si no entendí mal lo que estás buscando, otro modo de realizarlo es:

Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
  if SpinEdit1.Value in [1,3] then
  begin
    campo1:= SpinEdit1.Value;
    Label1.Caption:= IntToStr(campo1);
  end;
end;

Saludos.

[Casimiro Notevi]

Además es conveniente que pongas títulos descriptivos a tus preguntas, recuerda nuestra guía de estilo.