Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés. Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
- Colocas un TLabel - Haces un bucle For ... - Pones un pequño retardo - Vas cambiando la posición del label con la propiedad Left
A bote pronto algo asi Pones el label el la posición Left := 10 para que empiece bien For i := 10 to 500 do begin Sleep(100); Label1.Left := i; end;
Va todo de memoria y sin Delphi delante. No se los valores máximos de left en tu pantalla, he puesto 500 a ojo Cambiando el valor de Sleep irá más rápido o más lento (si es que funciona)