Programa de Matematicas

[Neftali [Germán.Estévez]]

Empezado por Caral

...el unico problema que le veo es que hace el trayecto solo una vez y me gustaria que se repitiera, no he podido hacerlo.
Saludos

En el procedimiento del Timer añade las tres líneas que te pongo en ROJO y listo; Si las comentas lo hace 1 vez, si las descomentas lo hace cíclico.

Código Delphi [-]
var
  total:Integer;
begin

  // Que pez estamos dibujando
  _pezActual := _pezActual + 1;
  total := Length(POSITION_PEZ1X);

  // Se ha acabado?
  if (_pezActual > total) then begin
    TimerAnim.Enabled := False;
    I1.Visible := False;
    IV1.Visible := False;
    IR1.Visible := False;
    // Sacar el Main
    //...

    // Si se quiere que vuelva a empezar se descomenta este código
    TimerAnim.Enabled := True;
    _pezActual := 0;

    Exit;
  end
  else begin
    // Amarillo
    I1.Visible := True;
    I1.Transparent := True;
    I1.Left := POSITION_PEZ1X[_pezActual];
    I1.Top := POSITION_PEZ1Y[_pezActual];
    // Violeta
    IV1.Visible := True;
    IV1.Transparent := True;
    IV1.Left := POSITION_PEZ2X[_pezActual];
    IV1.Top := POSITION_PEZ2Y[_pezActual];
    // Rojo
    IR1.Visible := True;
    IR1.Transparent := True;
    IR1.Left := POSITION_PEZ3X[_pezActual];
    IR1.Top := POSITION_PEZ3Y[_pezActual];
  end;
end;