как изменить максимальные размеры окна на АПИ?

← →
LeReve (2003-03-08 14:51) [0]

← →
Diamond Cat (2003-03-08 15:30) [1]

setwindowpos or setwindowplacement

← →
LeReve (2003-03-08 15:33) [2]

what"s parametrs????

← →
theodor_iv (2003-03-08 16:12) [3]

Написать обработчик сообщения WM_GETMINMAXINFO

← →
LeReve (2003-03-08 17:07) [4]

не получается создать окно которое больше чем разрешение экрана =(

← →
Игорь Шевченко (2003-03-11 09:52) [5]

Получается.

procedure TfMain.WMGetMinMaxInfo(var Message : TWMGetMinMaxInfo);
var
Sz : SIZE;
begin
Sz := FullScreenHandler.MaxSize;
with Message.MinMaxInfo^ do begin
ptMaxSize := TPoint(Sz);
ptMaxTrackSize := TPoint(Sz);
end;
end;

function TFullScreenHandler.GetMaxSize : SIZE;
var
ARect : TRect;
begin
{
При большом желании обращение к свойствам переменной Screen можно заменить
на вызовы функции GetSystemMetrics(SM_CXSCREEN) и
GetSystemMetrics(SM_CYSCREEN).
}
SetRect(ARect, 0, 0, Screen.Width, Screen.Height);
InflateRect(ARect, 10, 50); //Любые числа, лишь бы превышали размер
//неклиентской области окон
Result.cx := ARect.Right - ARect.Left;
Result.cy := ARect.Bottom - ARect.Top;
end;

как изменить максимальные размеры окна на АПИ? Найти похожие ветки