Пытаюсь сделать такую конструкцию в Form.Resize:
ls=This.grid1.Left
IF TYPE('_dbgstr') # 'C'
_dbgstr=''
Endi
IF TYPE('cr') # 'C'
cr=''
Endi
_dbgstr=_dbgstr+'Resize 0"'+This.vsplitter1.Tag+'"'+cr

DO case
CASE This.vsplitter1.Tag = 'Drag'
_dbgstr=_dbgstr+'Resize 1'+cr
This.grid1.width=This.vsplitter1.left-3*ls/2
This.grid2.Left=This.vsplitter1.right+ls/2
This.grid2.Width=This.Width-This.grid2.left-ls
This.command5.Left=This.grid2.Left
This.command6.Left=This.command5.Left+This.command5.width
This.command7.Left=This.command6.Left+This.command6.width
OTHERWISE
_dbgstr=_dbgstr+'Resize 2'+cr
This.saveexit1.Left=This.Width-This.saveexit1.Width-ls
This.grid2.Width=This.Width-This.grid2.left-ls
STORE This.Height-This.grid1.Top-ls TO This.grid1.Height, This.grid2.Height
This.vsplitter1.Height=This.Height
This.vsplitter1.Tag='Drag'
_dbgstr=_dbgstr+'Resize 21"'+This.vsplitter1.Tag+'"'+cr
This.Resize
_dbgstr=_dbgstr+'Resize 22"'+This.vsplitter1.Tag+'"'+cr
This.vsplitter1.Tag=''
_dbgstr=_dbgstr+'Resize 23"'+This.vsplitter1.Tag+'"'+cr
ENDCASE
_dbgstr=_dbgstr+'Resize 3'+cr


а отладка пишет:
Befor Resize
Resize 0""
Resize 2
Resize 21"Drag"
Resize 22"Drag"
Resize 23""
Resize 3
After Resize


те Resize не запускается рекурсивно?

Dima T,
да, похоже