FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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; |
|
|
|