Ver Mensaje Individual
  #13  
Antiguo 15-05-2013
darkmaster360 darkmaster360 is offline
Miembro
NULL
 
Registrado: may 2013
Posts: 12
Reputación: 0
darkmaster360 Va por buen camino
Se me olvido una cosilla..

Esta línea:
Código Delphi [-]
Timer1.Interval := SpinEdit1.Value;

Donde la incluyo en el código de oscarac:
Código Delphi [-]
procedure TForm1.SpinEdit1Change(Sender: TObject);
var i,c:integer;
var s:string;
begin
 begin
 Timer1.Interval := SpinEdit1.Value;
   s:=Tspinedit(sender).text;
   val(s,i,c);
   if c <> 0 then
   begin
     Tspinedit(sender).value:=Tspinedit(sender).tag;
     beep;
   end
   else
     Tspinedit(sender).tag:=i;
 end;
end;

Porque probé y aunque pueda cambiar el número del spinedit no cambia el intervalo del timer

Saludos
Responder Con Cita