Hi David Thanks for the suggestion, I'm not sure I can use that as I would then lose the visual indication of 'dropability' provided by changing the Accept parameter in the OnDragOver event.
I think I'll have to pursue other directions and possibly drop the drag image altogether which would be a shame as otherwise it looks and works great... Regards Dave David Smith wrote: > hmm. I guess you've uncovered a bug in the VCL. >Thanks for the forewarning. > >Okay, this is what I was thinking of. Maybe this could >be a workaround? You could assign a custom dragcursor >to the control. This is from delphi help: > >TControl.DragCursor >Indicates the image used to represent the mouse >pointer when the control is being dragged. > >property DragCursor: TCursor; > >Description > >Use the DragCursor property to change the cursor image >presented when the control is being dragged. > >Note: To learn how to make a custom cursor available >for the DragCursor property, see the Cursor property. > >__________________________________________________ >Here's the help from that last sentence: > >TControl.Cursor > >TControl See also Example >------------------------------------------------ >Specifies the image used to represent the mouse >pointer when it passes into the region covered by the >control. > >property Cursor: TCursor; > >Description > >Change the value of Cursor to provide feedback to the >user when the mouse pointer enters the control. The >value of Cursor is the index of the cursor in the list >of cursors maintained by the global variable, Screen. >In addition to the built-in cursors provided by >TScreen, applications can add custom cursors to the >list. > >Example: > >This example shows how to add custom cursors to an >application. It assumes that a custom cursor with the >name NewCursor has been added to the resources (.RES >file) of the application. You can add the cursor using >the image editor. (Tools | Image Editor) >The following code makes this cursor available to the >application via the constant crMyCursor, and sets it >as the global cursor to the application. > >const > > crMyCursor = 5; >procedure TForm1.FormCreate(Sender: TObject); >begin > Screen.Cursors[crMyCursor] := LoadCursor(HInstance, >'NewCursor'); > Cursor := crMyCursor; >end; > > Hope this helps! > >DJS > >--- Dave Sellers <[EMAIL PROTECTED]> wrote: > > > >>David Smith wrote: >> >> >> >>>Can't you assign a custom drag object in the object >>>inspector for the component? Just do it at design >>> >>> >>time >> >> >>>or formShow. >>> >>> >>> >>> >>> >>Hi David >> >> Not as far as I can see (D7) - mind you it has been >>a looooong day! >> >> The DragObject is a var parameter of the StartDrag >>event handler - it's >>not a property of the grid object that's within >>scope to me or the >>object inspector. >> >>Dave >> >> >> >> > > > > >__________________________________ >Yahoo! Mail - PC Magazine Editors' Choice 2005 >http://mail.yahoo.com > > > >----------------------------------------------------- >Home page: http://groups.yahoo.com/group/delphi-en/ >To unsubscribe: [EMAIL PROTECTED] >Yahoo! Groups Links > > > > > > > > > > ------------------------ Yahoo! Groups Sponsor --------------------~--> Most low income households are not online. Help bridge the digital divide today! http://us.click.yahoo.com/cd_AJB/QnQLAA/TtwFAA/i7folB/TM --------------------------------------------------------------------~-> ----------------------------------------------------- Home page: http://groups.yahoo.com/group/delphi-en/ To unsubscribe: [EMAIL PROTECTED] Yahoo! Groups Links <*> To visit your group on the web, go to: http://groups.yahoo.com/group/delphi-en/ <*> To unsubscribe from this group, send an email to: [EMAIL PROTECTED] <*> Your use of Yahoo! Groups is subject to: http://docs.yahoo.com/info/terms/
