trackbar con numeros reales
Hola a todos, quisiera pediros un gran favor, necesito arreglar un problema que tengo con una trackbar. Quiero conseguir una trackbar con números reales y que al mover ésta, me ponga su valor en un edit, y viceversa. Tengo hecho algo, pero no me funciona bien del todo, puesto que los valores 1 y 2 no puedo seleccionarlos. Por favor necesito tener esto listo para mañana porque el lunes tengo que presentar el trabajo y hacer una demostración. Os pongo el código que tengo.
Gracias por adelantado. Un saludo a todos.
procedure TForm1.LMDTrackBar1Change(Sender: TObject);
begin
edit3.text:=floattostr((LMDTrackbar1.position)/10);
ganancia:=LMDtrackbar1.Position;
end;
procedure TForm1.Edit3Change(Sender: TObject);
begin
LMDTrackBar1.Position:=StrToIntDef(edit3.text, LMDTrackBar1.Position);
ganancia := LMDTrackBar1.Position;
end;
|