Componente UpDown que incremente con decimales.

[locojoan]

Hola. Tengo un formulario con un componente UpDown y al lado un textbox que muestra un valor numérico. le doy click al componente UpDown y muestra el incremento numérico en el textbox. necesito que el incremento sea con números decimales. 0,1 0,2 0,3... etc.

alguien me podria ayudar??

Gracias.

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

[Casimiro Noteví]

También puedes usar el que trae los componentes RXlib, admite decimales y cualquier máscara numérica.

[ecfisa]

Hola.

Yo he utilizado algo similar a lo que te sugirió newtron.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  FValor:= 0;  // privada tipo flotante
  UpDown1.Associate:= Edit1;
end;

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  if Button = btNext then
     FValor:= FValor + 0.1
  else
     FValor:= FValor - 0.1;
  TCustomEdit(UpDown1.Associate).Text:= CurrToStr(FValor);
end;

Saludos.

[heroe555]

Hay un componente de LMD Tools que hace lo que buscas, puedes descargar la versión freeware.