Foros Club Delphi - Ver Mensaje Individual - Componente UpDown que incremente con decimales.

[newtron] · #2 10-09-2011

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