> >PUBLIC o >o = CREATEOBJECT("myform") >o.show() > >DEFINE CLASS myForm AS FORM > > ADD OBJECT cmdButton1 AS CommandButton WITH top = 10, caption = "Not Dockable" > ADD OBJECT cmdButton2 AS CommandButton WITH top = 30, caption = "Dockable" > ADD OBJECT cmdButton3 AS CommandButton WITH top = 50, caption = "Docked" > > PROCEDURE cmdButton1.Click > SELECT TEST > thisform.Dockable= 0 > BROWSE > ENDPROC > > PROCEDURE cmdButton2.Click > SELECT TEST > thisform.Dockable= 1 > thisform.Dock(-1) > BROWSE > ENDPROC > > PROCEDURE cmdButton3.Click > SELECT TEST > thisform.Dockable= 1 > thisform.Dock(1) > BROWSE > ENDPROC > > > PROCEDURE Init > CREATE CURSOR TEST(TEST C(10)) > ENDPROC > > PROCEDURE Destroy > USE IN SELECT("TEST") > ENDPROC >ENDDEFINE > >This is by design.
PUBLIC o o = CREATEOBJECT("myform") o.show() DEFINE CLASS myForm AS FORM ADD OBJECT cmdButton1 AS CommandButton WITH top = 10, caption = "Not Dockable" ADD OBJECT cmdButton2 AS CommandButton WITH top = 30, caption = "Dockable" ADD OBJECT cmdButton3 AS CommandButton WITH top = 50, caption = "Docked" PROCEDURE cmdButton1.Click SELECT TEST thisform.Dockable= 0 BROWSE ENDPROC PROCEDURE cmdButton2.Click SELECT TEST thisform.Dockable= 1 thisform.Dock(-1) BROWSE NORMAL IN WINDOW (WONTOP()) ENDPROC PROCEDURE cmdButton3.Click SELECT TEST thisform.Dockable= 1 thisform.Dock(1) BROWSE NORMAL IN WINDOW (WONTOP()) ENDPROC PROCEDURE Init CREATE CURSOR TEST(TEST C(10)) ENDPROC PROCEDURE Destroy USE IN SELECT("TEST") ENDPROC ENDDEFINE