Модератор: Модераторы
var
wPlacement: TWindowPlacement;
wRect: TRect;
wTop, wLeft: Integer;
begin
// получение информации об окне
wPlacement.Length := SizeOf(wPlacement);
if GetWindowPlacement(TCustomForm(Owner).Handle, @wPlacement) then begin
wRect := TCustomForm(Owner).ClientRect; // Left == Right == 0
// позиция окна
wTop := wPlacement.rcNormalPosition.Top;
wLeft := wPlacement.rcNormalPosition.Left;
end;
end;
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 39