Form no refresca el movimiento de una imagen por codigo

[dantemol]

Ese un solo movimiento el que hago:

Image1.Left := Image1.Left + 200;

con ningún Update funcionó ni en el Form, ni en Image1; lo solucioné a medias poniendo el código para mover en el evento OnResize se que no es lo correcto, será porque es una imagen PNG? voy a convertira a JPG y les cuento. Saludo

Perdón, debo aclarar algo: el código para el movimiento lo ejecuto al crear el formulario y al darse cierta condición la imagen se desplaza a una posición u otras, tendrá algo que ver?

[[Delphius]]

Empezado por dantemol

Ese un solo movimiento el que hago:

Image1.Left := Image1.Left + 200;

con ningún Update funcionó ni en el Form, ni en Image1; lo solucioné a medias poniendo el código para mover en el evento OnResize se que no es lo correcto, será porque es una imagen PNG? voy a convertira a JPG y les cuento. Saludo

Perdón, debo aclarar algo: el código para el movimiento lo ejecuto al crear el formulario y al darse cierta condición la imagen se desplaza a una posición u otras, tendrá algo que ver?

Me parece que es mucho más probable que sea a causa de que lo haces en el evento OnCreate. OnCreate se ejecuta cuando se crea el form, distinto es cuando se muestra, es por ello que no ves el movimiento, muy seguramente lo ves en su posición final. Posiblemente el evento apropiado sea OnActivate.

No creo que se deba al formato de la imagen; al menos intuyo que es poco probable. Me inclino a que es a causa de OnCreate.

Sería oportuno que muestres el código tal cual lo tienes.

Saludos,

[krlox31416]

Pega tu imagen a un panel para que veas la diferencia
y programa en el evento OnActivate

Código Delphi [-]
procedure TForm1.FormActivate(Sender: TObject);
Var i: Integer;
begin
for i:= 1 to 500 do
begin
Panel1.left := image1.left + i;
Panel1.Update; // obligamos a que se pinte inmediatamente y se vea el cambio
end;

y si no pureba estas lineas

Código Delphi [-]
// prueba estas líneas de código y nos cuentas que tal te fue!!!
// es cuestion de jugar con los intervalos y el tamaño de tu imagen
// agrega un timer
procedure TForm1.Timer1Timer(Sender: TObject);
var band: Boolean;
begin
if band = False Then
   begin
   if Image1.Left >= Form1.Width - 1 Then
      begin
      band := True;
      end;
   end
   else
   begin
   if Image1.Left <= 1000 Then
   band := False;
   end;
if band = False Then
   begin
   Image1.Left := Image1.Left + 100;
   end
   else
   Image1.Left := Image1.Left - 100;
end;