Платные хостинги     Раскрутка сайта     Книги по программированию

Есть ли функция, которая возвращает ClientRect, относительно системы координат монитора?

- Здравствуйте, господа.На этот раз я хочу вас спросить на предмет существования такой функции, которая возвращает 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

Интернет казино     Онлайн игры     Увеличение члена     Купить DVD