SpinEdit

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