Componente UpDown que incremente con decimales.

[[newtron]]

Hola.

Lo que se me ocurre es que pongas esto en el evento click del UpDown

Código Delphi [-]
  try
    case Button of
      btNext: begin
        EditEtiquetas.Text := CurrToStr(StrToCurr(EditEtiquetas.Text) + 0.1);
      end;
      btPrev: begin
        EditEtiquetas.Text := CurrToStr(StrToCurr(EditEtiquetas.Text) - 0.1);
      end;
    end;

  except
    EditEtiquetas.Text := '0';
  end;

Saludos