Здравствуйте, господа.
На этот раз я хочу вас спросить на предмет существования такой функции, которая возвращает ClientRect компонента, только относительно системы координат всего монитора. Приведенный ниже код решает эту задачу путем рекурсии. Вопрос в том, что существует ли такая функция.

function GetParentBounds(AParent: TControl): TRect;
begin
 if not(AParent is TForm) then
 begin
   Result := GetParentBounds(AParent.Parent);
   Result.Left := Result.Left+AParent.Left;
   Result.Top := Result.Top+AParent.Top;
   Result.Right := Result.Left+AParent.ClientWidth;
   Result.Bottom := Result.Top+AParent.ClientHeight;
 end else
   with AParent as TForm do
   begin
     Result := BoundsRect;
     Result.Left := Result.Left+(Width-ClientWidth);
     Result.Top := Result.Top+(Height-ClientHeight);
     Result.Right := Result.Right-(Width-ClientWidth);
     Result.Bottom := Result.Bottom-(Height-ClientHeight);
   end;
end;

P.S. Если таковой функции нет, возможно (на усмотрение модератора) эту стоит скопировать в FAQ.

Проще воспользоваться функциями ClientToScreen и ScreenToClient, они работают с аргументом TPoint