Ver Mensaje Individual
  #2  
Antiguo 05-11-2016
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Tuvan.

A ver si este ejemplo es similar a lo que buscas:
Código Delphi [-]
....
procedure OrbitingImage(i1, i2: TImage; const Radius: Integer; const Delay: Cardinal);
var
  cp: TPoint;
   i: Integer;
begin
  cp.X := i1.Left;
  cp.Y := i1.Top;
  for i := 0 to 360 do
  begin
    i2.Left := cp.X + Trunc( Radius * sin( i* PI/180 ) );
    i2.Top  := cp.Y + Trunc( Radius * cos( i* PI/180 ) );
    Sleep( Delay );
    Application.ProcessMessages;
  end;
end;

// llamada
procedure TForm1.Button1Click(Sender: TObject);
begin
  OrbitingImage( Image1, Image2, 120, 20 );
end;

Salida:


Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 05-11-2016 a las 23:44:56.
Responder Con Cita