I was going to type of a little tutorial until I saw that Delphi.About has 
exactly what you are looking for (dragging a TImage). I'd suggest that you 
follow that, then post any questions if you still don't understand. Also, in 
contrary to what is suggested in that tutorial, I recommend using 
BeginDrag(false,10) instead of BeginDrag(true). That way Dragging won't stop 
until you dragged the mouse 10 pixels with the mouse button depressed. OnDrag 
fires starts far too easily otherwise. 

dave

http://delphi.about.com/od/vclusing/a/dragdrop.htm


--- On Fri, 12/18/09, totallyfreeenergy <[email protected]> wrote:

From: totallyfreeenergy <[email protected]>
Subject: [delphi-en] Re: How to implement drag drop in VCL controls?
To: [email protected]
Date: Friday, December 18, 2009, 9:36 PM







 



  


    
      
      
      I am sorry that my post wasn't clear. I meant drag drop within the same 
application and within the same form. Thanks :)



TFE,

http://totallyfreee nergy.zxq. net



--- In delphi...@yahoogrou ps.com, David Smith <djsmith_1998@ ...> wrote:

>

> Are you talking about TImage or otherwise from one  VCL object to another? 
> Delphi doesn't handle dragging/dropping between application for you if that's 
> what you're trying to do. 

> 

> Dave

> 

> --- On Fri, 12/18/09, totallyfreeenergy <totallyfreeenergy@ ...> wrote:

> 

> From: totallyfreeenergy <totallyfreeenergy@ ...>

> Subject: [delphi-en] How to implement drag drop in VCL controls?

> To: delphi...@yahoogrou ps.com

> Date: Friday, December 18, 2009, 3:00 PM

> 

> 

> 

> 

> 

> 

> 

>  

> 

> 

> 

>   

> 

> 

>     

>       

>       

>       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://totallyfreee nergy.zxq. net

> 

> 

> 

> 

> 

>     

>      

> 

>     

>     

> 

> 

>  

> 

> 

> 

>   

> 

> 

> 

> 

> 

> 

>       

> 

> [Non-text portions of this message have been removed]

>





    
     

    
    


 



  






      

[Non-text portions of this message have been removed]

Reply via email to