عمل Drag And Drop بین کنترلهای ایجاد شده توسط برنامه

[RK977877]

با سلام
من میخواهم برنامه ای بنویسم که توسط آن برنامه بتوانم کنترل مثلا لیست باکس ایجاد کرده (بصورت دینامیک) و بعد بین آنها عمل Drag And Drop انجام دهم
همانند Sql Server که شما جداول را Add کرده و Sql خود آنها را یک CheckListBox ایجاد کرده و کاربر میتواند توسط عمل Drag And Drop بین جداول ایجاد شده لینک برقرار کند
من هم میخواهم چنین برنامه ای بنویسم آیا امکان پذیر است

[m-khorsandi]

Handle Dragging From a TListBox to a TEdit
How to Move and Resize Controls at Run Time

[rasool_brn]

برا این کار دو تا ListBox رو تو فرم بذار.به خاصیت DragMode لیست باکس اول مقدار dmAutomatic رو بده . بعد در رویداد OnDragOver لسیت باکس دوم این کد رو بنویس :

Accept := True;

یه متغیر سراسری به نام n از نوع Integer تعریف کن بعد در رویدادOnDragDrop لیست باکس دوم این کد رو بنویس :

ListBox2.Items[n]:=(source as TListBox).Items[(source as TListBox).Itemindex];

n:=n+1;

همین کدهایی رم که گفتم برا ListBox اول بنویس خصوصت Dragmode لیست باکس دومم به dmAutomatic تغییر بده.

[RK977877]

آقا ببخشید شما منظور من را متوجه نشدید من میخوام که خود برنامه CheclListBox تولید کند یعنی وقتی که مثلا روی یک جدول دوبار کلیک میکنم سریع یک CheckList Box اضافه کرده و تمام فیلدها را درون آن قرار داده و Event - DragOver And DragDrop آن فعال شده تا من بتوانم از آن به سایر ChecklistBox های اضافه شده عمل Drag And Drop را انجام دهم
نکته : ساخت CheckListBox در برنامه بصورت دینامیک و داشتن رویداد Drag And Drop

[m-khorsandi]

برای ساخت کنترل در زمان اجرا جستجو کن،
برای مابقی برنامه هم لینکهایی که گذاشتم کمکت می‌کنند.

[dkhatibi]

تو مثالهای دلفی هم فکر کنم مثالی در این باره باشه نگاهی کن. دلفی 6

[RK977877]

حالا چگونه میتوان بعد از ساخت کنترل در زمان اجرا Event های مربوط به ان را هم فعال کرد مثلا DragOver و یا DragDrop که بتوان در زمان اجرا ابن Event ها را فعال کرد

[rasool_brn]

حالا چگونه میتوان بعد از ساخت کنترل در زمان اجرا Event های مربوط به ان را هم فعال کرد مثلا DragOver و یا DragDrop که بتوان در زمان اجرا ابن Event ها را فعال کرد

اول باید یه Procedure تعریف کنی (توجه داشته باش که تمام آرگومانهای این پروسیجر باید مشابه آرگومانهای رویدادی باشه که می خوای ازش استفاده کنی) مثلا برای رویداد OnDragOver به این صورت عمل کن:

procedure eventOnDragOver(OnDragOver تمام آرگومانهای رویداد)

Begin

Accept := True;

End;

بعد از این کار این Procedure را به رویداد OnDragOver کاموننت ChecklistBox که در زمان اجرا ایجاد کردی نسبت بده , به صورت زیر:

ChecklistBox.OnDragOver := EventOnDragOver;

[RK977877]

حال اگر من یک لیست باکس داشته باشم و بخواهم وقتی که موس را روی ان میبرم بفهمم که روی کدام ItemIndex از لیست باکس هستم چکونه امکان پذیر است

[vcldeveloper]

حال اگر من یک لیست باکس داشته باشم و بخواهم وقتی که موس را روی ان میبرم بفهمم که روی کدام ItemIndex از لیست باکس هستم چکونه امکان پذیر است

قبل از سوال جستجو کنید. در ضمن، هر تاپیک برای مطرح کردن یک سوال است