drag and drop

[N_D]

سلام
یک فرم با یک image در آن مفروض میباشد حال میخواهیم در زمان اجرا با ماوس این image را در فرم جابجا کنیم (drag and drop) اگر امکان دارد نمونه کد بنویسید

[hr110]

کد زیر به دلفی نیست ولی میتوانید از ان استفاده کنید ، کاملاً واضح است:

http://community.borland.com/article...,20174,00.html

و یا این ادرس که به دلفی است:
http://delphi.about.com/library/weekly/aa080399.htm

من یه روشی از خودم در اوردم شاید راههای بهتری هم باشه
ببین خیلی سادس یه فلگ میگیری که وقتی ایونت ان موس داون بوجود اومد ترو بشه و وقتی ان موس اپ بوجود اومد فالس بشه بعد برای ایونت ان موس موو وقتی که فلگ ترو هست کدی مینویسی که لفت و تاپ ایمیج رو با لفت و تاپ کرسر موس مساوی قرار بده.
image1.left:=mouse.cursorpos.x
البته از سمت راست تساوی بالا یه مقداری رو باید کم کنی که درگ درست انجام بشه
از خاصیت اوتو درگ اند دراپ هم میتونی استفاده کنی ولی اصلا اونو پیشنهاد نمیکنم. یعنی خاصیت اوتو درگ اند دراپ رو ترو کن بعد خاصیت درگ کایند رو بزار روی dkDock .