Ver Mensaje Individual
  #2  
Antiguo 22-10-2006
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Reputación: 24
seoane Va por buen camino
A falta de una solución mejor, usa un TImage y coloca la imagen en el. El TImage debe tener su propiedad Strech a True, tu solo tendrás que variar su tamaño y posición para hacer el efecto. También convendría que utilizaras las propiedad DoubleBuffered del formulario para evitar el parpadeo, pero esta propiedad no esta presente en todas las versiones de delphi.

Código Delphi [-]
var
  i,x,y: integer;
begin
  DoubleBuffered:= TRUE;
  Image1.Stretch:= TRUE;
  for i:= 2 to 32 do
  begin
    Image1.Width:= 4*i;
    Image1.Height:= 4*i;
    // Coordenadas
    x:= 100;
    y:= 100;
    Image1.Left:= x - (Image1.Width div 2);
    Image1.Top:= y - (Image1.Height div 2);
    Application.ProcessMessages;
    Sleep(50);
  end;
end;
Responder Con Cita