Girar un Timage con respecto a otro Timage

[ecfisa]

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