--- In [email protected], "totallyfreeenergy" <totallyfreeene...@...> 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
