Ver Mensaje Individual
  #11  
Antiguo 12-11-2003
haffo haffo is offline
Miembro
 
Registrado: oct 2003
Posts: 54
Reputación: 21
haffo Va por buen camino
Ufff que lio, jeje, es cierto el código era de delphi.com.ar, lo siento. el código es el siguiente:

procedure TForm1.Edit3Change(Sender: TObject);
begin

LMDTrackBar1.Position:=Trunc(StrToFloatDef(edit3.text, LMDTrackBar1.Position div 10)*10);
ganancia := LMDTrackBar1.Position div 10;

end;

procedure TForm1.LMDTrackBar1Change(Sender: TObject);
begin
edit3.text:=inttostr(LMDTrackbar1.position);
ganancia:=LMDtrackbar1.Position;
end;

El evento de la trackbar es LMDtrackbar1change y el del edit edit3change. Tendré que dividir por 10 el procedure del edit 3, como lo hago? es que es una string.

Gracias por tu ayuda.
Responder Con Cita