Changing a size of window

← →
Max2 © (2002-10-24 15:12) [0]

Как и где задать, что бы окно не могло изменять размер дальше введённых (длины и ширины окна)?

← →
Lord Warlock © (2002-10-24 15:14) [1]

Свойство Constrains формы

← →
Max2 © (2002-10-24 15:16) [2]

А где оно задаётся? У меня окно криэтится так:

procedure WinMain;
Begin
With WindowClass do
begin
Style := cs_DblClks;
lpfnWndProc := @WindowProc;
cbClsExtra := 0;
cbWndExtra := 0;
hInstance := 0;
hIcon := LoadIcon (0, idi_Application);
hCursor := LoadCursor (0, idc_Arrow);
hbrBackground := GetStockObject (NULL_BRUSH);
lpszMenuName := "";
lpszClassName := AppName;
end;
If RegisterClass (WindowClass) = 0 then
Halt (255);
Window := CreateWindow (AppName, "Cool",
ws_OverlappedWindow, 0, 0, 500, 500, 0, 0, HInstance, nil);
ShowWindow (Window, SW_SHOW);
UpdateWindow (Window);
while GetMessage (Mes, 0, 0, 0) do
begin
TranslateMessage (Mes);
DispatchMessage (Mes);
end;
Halt (Mes.wParam);
End;

← →
MBo © (2002-10-24 15:18) [3]

wm_getminmaxinfo

Коли так, посмотри текст VCL TWinControl

Changing a size of window Найти похожие ветки