Apprehension,

Добрый день.
Можно использовать WinAPI

subroutine GetMinMaxInfo ( ref str_minmaxinfo d, long s, long l ) library 'kernel32.dll' alias for "RtlMoveMemory;Ansi"
subroutine SetMinMaxInfo ( long d, str_minmaxinfo s, long l ) library 'kernel32.dll' alias for "RtlMoveMemory;Ansi"

--
global type str_minmaxinfo from structure
str_point ptreserved
str_point ptmaxsize
str_point ptmaxposition
str_point ptmintracksize
str_point ptmaxtracksize
end type

--
event ue_getminmaxinfo pbm_getminmaxinfo

event ue_getminmaxinfo;str_MinMaxInfo lstr_MinMaxInfo
/* copy the data, pointed by the argument MinMaxInfo, to our lstr_MinMaxInfo structure */
GetMinMaxInfo(lstr_MinMaxInfo, MinMaxInfo, 40)
/* set the minimal size for our window */
lstr_MinMaxInfo.ptMinTrackSize.lx = 730
lstr_MinMaxInfo.ptMinTrackSize.ly = 250
/* copy the structure back into memory at the same place */
SetMinMaxInfo(MinMaxInfo,lstr_MinMaxInfo,40)
/* important, according to the MS API, we must return 0 */
return 0

end event

umalov,

global type str_point from structure
long lx
long ly
end type