trackbar con numeros reales

[delphi.com.ar]

Si puedes hacerlo con un edit normal, con el CurrencyEdit, será mucho mas fácil y estético.

procedure TForm1.Edit3Change(Sender: TObject);
begin
  LMDTrackBar1.Position:=Trunc(StrToFloatDef(edit3.text, LMDTrackBar1.Position div 10)*10);
  ganancia := LMDTrackBar1.Position div 10;
end;

Creo que en las últimas versiones de Delphi, apareció la funcion StrToFloatDef, yo trabajo en Delphi 5 así que no te lo puedo confirmar.


Román:



Saludos!