Hello Martin. I have some trouble with myform.dragdock.dockto().
Sometimes the forms are not sized as wanted (see video). https://sites.google.com/site/fredvsbinaries/mse_dock2.mp4 Here code of menu item "Dock" ---> -------------------------------- procedure tmainfo.ondockall(const sender: TObject); var x : integer; apos: pointty; begin application.lock(); width := 458 ; drumsfo.height := 238; drumsfo.width := 458; guitarsfo.height := 74; guitarsfo.width := 458; songplayerfo.height := 114; songplayerfo.width := 458; recorderfo.height := 114; recorderfo.width := 458; drumsfo.activate; guitarsfo.activate; songplayerfo.activate; recorderfo.activate; height := 26 ; apos.x := 0 ; apos.y := 10 ; drumsfo.dragdock.dockto(mainfo.basedock.dragdock,apos); apos.y := drumsfo.height + 20; guitarsfo.dragdock.dockto(mainfo.basedock.dragdock,apos); apos.y := drumsfo.height + guitarsfo.height + 20; songplayerfo.dragdock.dockto(mainfo.basedock.dragdock,apos); apos.y := drumsfo.height + guitarsfo.height + songplayerfo.height + 20 ; recorderfo.dragdock.dockto(mainfo.basedock.dragdock,apos); height := height + 2; activate; application.unlock(); end; ------------------------------------------------------------- Here code of forms.ondock() ---> procedure myform.ondockplay(const sender: TObject); begin mainfo.height := mainfo.height + myform.height; end; ------------------------------------------------- Thanks. Fre;D -- Sent from: http://mseide-msegui-talk.13964.n8.nabble.com/ ------------------------------------------------------------------------------ Check out the vibrant tech community on one of the world's most engaging tech sites, Slashdot.org! http://sdm.link/slashdot _______________________________________________ mseide-msegui-talk mailing list [email protected] https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
