Código Delphi [-]procedure TForm1.Timer1Timer(Sender: TObject); begin Image1.Left := ActiveControl.Left - Image1.Width - 15; Image1.Top := ActiveControl.Top + (ActiveControl.Height - Image1.Height) div 2; end;
procedure TForm1.Timer1Timer(Sender: TObject); begin Image1.Left := ActiveControl.Left - Image1.Width - 15; Image1.Top := ActiveControl.Top + (ActiveControl.Height - Image1.Height) div 2; end;