Good Morning! Hmm, risking overkill here, but I have uploaded DragTest.zip to my site.
A while back, I was trying to figure this out, too. I did get help from Peter Below. http:\\www.GreatDayDan.com\DragTest.zip HTH...Dan'l --- In [email protected], "mikcaau" <mikc...@...> wrote: > > > > --- In [email protected], "totallyfreeenergy" <totallyfreeenergy@> > wrote: > > > > Thanks for that Mick. Even if it is not the answer still it is one more > > grain added. I am not looking for implementing drag of a Form object. I am > > only looking to implement a drag to new position of a Image object on a > > form. Your links show how to do a drag of a Form object. > > > > Regards > > TFE > > http://totallyfreeenergy.zxq.net > > > > --- In [email protected], "mikcaau" <mikcaau@> wrote: > > > > > > > > > > > > --- In [email protected], "totallyfreeenergy" > > > <totallyfreeenergy@> wrote: > > > > > > > > I tried to follow the code in the Delphi 7 help. But I am unable to get > > > > the drag drop functionality going. Can someone post a sample code for > > > > say drag drop an Image object on a form. Thanks for any help on this. > > > > > > > > TFE > > > > http://totallyfreeenergy.zxq.net > > > > > > > I answered this question earlier this year and I think that you were the > > > questionier. In 5 minutes with google I found the answer because that was > > > faster than searching my code > > > try these links > > > > > > http://www.delphicorner.f9.co.uk/articles/forms2.htm > > > http://thinksharp.org/how-to-provide-dragging-or-resizing-of-any-control/ > > > > > > and in particular look for > > > SC_DRAGMOVE = $F012 > > > > > > Mick > > > > > > > I gave you links to show how to drag a TWinControl. That is what you want. > You do not need to monitor maouse moves or anything. When selected create a > TPanel exactly the size and place of your TImage, set TImage.parent = > NewPanel and then drag the panel. The user will see the image being dragged > around and won't see the Panel. At destination set image parent to newPanel > parent, set image rectangle to NewPanel.Rectangle and destroy NewPanel. > > There are 1000s of web sites that discuss this in all sorts of detail. > > Mick >
