Ver Mensaje Individual
  #3  
Antiguo 24-10-2003
Ruben_Cu Ruben_Cu is offline
No confirmado
 
Registrado: oct 2003
Ubicación: Mariel, Cuba
Posts: 271
Reputación: 0
Ruben_Cu Va por buen camino
Hola, tengo la impresión que estás utilizando el evento OnChange del Edit u otro relacionado con teclas pero mal configurado.
El evento OnChange no lo puedes usar puesto que en cuanto introduzcas el signo '-' te lanzará el error que te aparece.
Creo que quieres mover el trackbar al valor introducido en el edit para ello podrías usar un botón para cuando coloques el número completo disparar el evento OnClick, algo como:
Código:
procedure TForm1.Button1Click(Sender: TObject);
begin
        trackbar1.Position:=StrToInt(edit1.Text);
end;
o, por ejemplo con la tecla enter:
Código:
procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
        if key=vk_return then trackbar1.Position:=StrToInt(edit1.Text);
end;
Espero que ahí ande tu solución.
Saludos
Responder Con Cita