Cita:
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.