Componente TLabel

[[seoane]]

Empezado por Caral

Hola
Pues no se, aqui se aprende de todo.
Me quedo la duda de la velocidad en el componente, no se puede cambiar.?
Os fijasteis?

Jeje, con las prisas copie dos veces lo mismo:

Donde pongo:

procedure TAnimLabel.SetVelocidad(Valor: Integer);
begin
  If FVelocidad <> Valor then
  begin
    if Valor <= 0 then
    begin
      FVelocidad:= 0;
      FTimer.Enabled:= FALSE;
    end else
    begin
      FVelocidad:= 0;
      FTimer.Enabled:= FALSE;
    end;
    FTimer.Interval:= FVelocidad;
  end;
end;

Tenia que haber puesto:

procedure TAnimLabel.SetVelocidad(Valor: Integer);
begin
  If FVelocidad <> Valor then
  begin
    if Valor <= 0 then
    begin
      FVelocidad:= 0;
      FTimer.Enabled:= FALSE;
    end else
    begin
      FVelocidad:= Valor;
      FTimer.Enabled:= TRUE;
    end;
    FTimer.Interval:= FVelocidad;
  end;
end;