Как установить минимальный размер окна
Необходимо объявить обработчик события для WM_GETMINMAXINFO:
...
private
procedure
WMGetMinMaxInfo(
var
Message
: TWMGetMinMaxInfo);
message
WM_GETMINMAXINFO;
А вот как выглядит сам обработчик:
procedure
TForm1.WMGetMinMaxInfo(
var
Message
: TWMGetMinMaxInfo);
begin
Message
.MinMaxInfo^.ptMinTrackSize := Point(Width, Height);
Message
.MinMaxInfo^.ptMaxTrackSize := Point(Width, Height);
end
;
Эксклюзивная традиционная
видеокамера samsung
в столице и других городах.
ремонт блока магнитных головок
салон на новокузнецкой
автомобильный видеорегистратор москва
.