PDA

View Full Version : drag and drop


N_D
دوشنبه 04 اسفند 1382, 00:41 صبح
سلام
یک فرم با یک image در آن مفروض میباشد حال میخواهیم در زمان اجرا با ماوس این image را در فرم جابجا کنیم (drag and drop) اگر امکان دارد نمونه کد بنویسید
hr110
دوشنبه 04 اسفند 1382, 08:50 صبح
کد زیر به دلفی نیست ولی میتوانید از ان استفاده کنید ، کاملاً واضح است:

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

و یا این ادرس که به دلفی است:
http://delphi.about.com/library/weekly/aa080399.htm
دوشنبه 04 اسفند 1382, 08:52 صبح
من یه روشی از خودم در اوردم شاید راههای بهتری هم باشه
ببین خیلی سادس یه فلگ میگیری که وقتی ایونت ان موس داون بوجود اومد ترو بشه و وقتی ان موس اپ بوجود اومد فالس بشه بعد برای ایونت ان موس موو وقتی که فلگ ترو هست کدی مینویسی که لفت و تاپ ایمیج رو با لفت و تاپ کرسر موس مساوی قرار بده.
image1.left:=mouse.cursorpos.x
البته از سمت راست تساوی بالا یه مقداری رو باید کم کنی که درگ درست انجام بشه
از خاصیت اوتو درگ اند دراپ هم میتونی استفاده کنی ولی اصلا اونو پیشنهاد نمیکنم. یعنی خاصیت اوتو درگ اند دراپ رو ترو کن بعد خاصیت درگ کایند رو بزار روی dkDock .