Really not a lot to it. CanAccept := (Sender = Source) and (Sender is MyListBox)
OnDrop method GetItem at drop point Find all selected and move them to just before drop point. The only bit I haven't got right is for a move you need to count down and thus your items finish up dropped back to front (upside down ?) Could be easily fixed by changing the drop point. Move is done by swapping items mick > Message: 2 > Date: Sat, 20 Aug 2005 10:50:07 -0400 > From: "Robert Meek" <[EMAIL PROTECTED]> > Subject: Dragging items inside a Listbox D2005 > To: <[EMAIL PROTECTED]> > Message-ID: <[EMAIL PROTECTED]> > Content-Type: text/plain; charset="us-ascii" > > Morning all, > Does anyone have a code snip I can look at that provides the ability > to change the order of listbox items via dragging them inside the > listbox to > their new position? All I've been able to find on Google are dragging to > separate listboxes. Thanx in advance! > > from: Robert Meek at: [EMAIL PROTECTED] > dba "Tangentals Design" home of "PoBoy" > freeware Windows apps and utilities > located at: www.TangentalsDesign.com > e-mail to: > [EMAIL PROTECTED] > [EMAIL PROTECTED] > [EMAIL PROTECTED] ************************************************************* Mara Antherre Computer, street: 1/28 Elder St. Alice Springs, NT 0870 post to: Box 8364 Alice Springs NT 0871 ph 0417 831 872, (08) 89528026, fax (08) 8953 0555 ah (08) 89528211 ABN 25 381 295 903 _______________________________________________ Delphi mailing list -> [EMAIL PROTECTED] http://www.elists.org/mailman/listinfo/delphi
