trackbar con numeros reales

[Casimiro Notevi]

Gracias a ti, por tu colaboración

[haffo]

Ya funciona bien, gracias por todo. El problema era que al introducir los datos en el edit yo ponía 1.3 por ejemplo para poner la parte decimal no es con el . sino con la , . Es decir hay que poner 1,3. Lo siento por mi torpeza.

GRACIAS !!!

Ahora tengo otro problema, jejeje, para variar. Lo tengo en otro hilo en el foro Varios, si os animais..........

[haffo]

Hola a todos de nuevo. Sigo teniendo un pequeño problema con la dichosa trackbar. He modificado un poco el programa, ahora lo que necesito es una trackbar que va de 0 a 20, pero en realidad quiero que me represente en un edit de 0 a 2, es decir, dividir el valor de la trackbar por 10. El problema es que cuando en la trackbar intento poner el valor 1 o el 2 no me deja. ¿por qué?. El código es el siguiente:

procedure TForm1.LMDTrackBar1Change(Sender: TObject);
begin
edit3.text:=floattostr((LMDTrackbar1.position)/10);
ganancia:=LMDtrackbar1.Position;

procedure TForm1.Edit3Change(Sender: TObject);
begin

LMDTrackBar1.Position:=StrToIntDef(edit3.text, LMDTrackBar1.Position);
ganancia := LMDTrackBar1.Position;
end;

donde ganancia es: integer porque este valor lo mando a un programa en 'C' donde allí ya lo divido por 10.

Gracias de antemano. Saludos.

[delphi.com.ar]

Fíjate que en una de las instrucciones divides el valor por 10, pero cuando le pasas el valor no lo multiplicas por 10 como lo habíamos visto anteriormente.

Saludos!

[haffo]

El problema es que cuando pongo:

LMDTrackBar1.Position:=StrToIntDef(edit3.text, LMDTrackBar1.Position)*10;

En el track bar solo me permite poner valores 0,1 ó 2. Y en el edit solo me reconoce el 0 el 1 y el 3.

[haffo]

Estoy haciendo mal la operacion de multiplicar ???

[haffo]

Una ayudita por favor

[delphi.com.ar]

haffo comentó:
LMDTrackBar1.Position:=StrToIntDef(edit3.text, LMDTrackBar1.Position)*10;

Si el valor es correcto, esta bien que multiplique el valor del Edit por 10, pero si es incorrecto y multiplica la posició por 10, mmmmm.....

Piensalo detenidamente, no es nada complicado, solo es un poco de lógica.

Saludos!

[haffo]

¿A qué te refieres con un valor correcto?. Si quiero introducir un 1,3, al pulsar el 1, la barra se me pone en el 1, pero al pulsar la coma se me va al 2.

[haffo]

Por favor necesito vuestra ayuda, no puedo arreglar esto. El código es el siguiente, probarlo a ver si a ustedes si os funciona.

procedure TForm1.LMDTrackBar1Change(Sender: TObject);
begin
edit3.text:=floattostr((LMDTrackbar1.position)/10);
ganancia:=LMDtrackbar1.Position;

procedure TForm1.Edit3Change(Sender: TObject);
begin

LMDTrackBar1.Position:=StrToIntDef(edit3.text, LMDTrackBar1.Position);
ganancia := LMDTrackBar1.Position;
end;

donde ganancia es: integer porque este valor lo mando a un programa en 'C' donde allí ya lo divido por 10.

Gracias de antemano. Saludos.