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


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 Notevi]

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.

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.