> >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 > >