Printable View
:20:سلام بچه ها
اول از همه امیدوارم سوالم تکراری نباشه:5:
-------------------------------------------------------------------------
اگر بخوایم فرممون رو طوری طراحی کنیم که خاصیت drag & drop داشته باشه
یعنی از هر جای فرم عمل درگ رو انجام می دیم فرم جابه جا بشه باید چکار کنیم؟
متاسفانه قبلا گفته شده.
یکی از راهها استفاده از کامپوننت است و راه دیگه نوشتن کد.
من الان کدهای راحتی که برای این موضوع پیشنهاد شده بود را به یاد ندارم
ولی بگردی پیدا میکنی
من فک کردم شاید با رویدادهای موس بشه پیاده سازیش کردنقل قول:
درضمن من اول جست و جو کردم ولی چیزی پیدا نکردم:20:
اگه راهنمایی کنید ممنون میشم
سلام.
در برنامه زیر متن ها رو از 2، listbox به هم با Drog&drop انتقال میده .
نکته : خاصیت DragMode هر دو Listbox باید به dmAutomatic تغییر پیدا کنه.
اینم سورس یه برنامه Drog And Drop که استادم اقای مهدی خانی واسم نوشته بود:
با تشکر از راهنمایی فرهاد.کد://برای پرکدن دو لیست باکس
procedure TForm1.FormCreate(Sender: TObject);
var
i : integer;
begin
for i := 1 to 15 do
begin
ListBox1.Items.Add('Data '+inttostr(i));
ListBox2.Items.Add('Control '+inttostr(i));
end;
end;
//---------------------------
//در رویداد OnDragOver هر دو لیست باکس باید متن زیر نوشته بشه.
procedure TForm1.ListBox1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
if Source is TListBox then
Accept := true;
end;
//---------------------------------
//در رویداد OnDragDrop هر دو لیست باکس باید متن زیر نوشته بشه.
procedure TForm1.ListBox1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
s : string;
l : TListBox;
p : TPoint;
i : integer;
begin
if Source is TListBox then
if Source = Sender then
begin
l := Sender as TListBox; // l := TListBox(Sender);
p.X := x;
p.Y := y;
i := l.ItemAtPos(p,false);
if (i >= 0) and (i < l.Items.Count) then
begin
s := l.Items[l.ItemIndex];
l.Items.Delete(l.ItemIndex);
l.Items.Insert(i,s);
end
end
else
begin
s := TListBox(Source).Items[TListBox(Source).ItemIndex];
TListBox(Sender).Items.Add('"'+s+'"');
end;
end;
//در رویداد OnDragOver هر دو لیست باکس باید متن زیر نوشته بشه یعنی وقتی اول برای listBox1 اینا رو بنویس بعد برای
listbox2 از ComboBox جلوی OnDragDrop دوباره تایع بالا رو انتخاب کن.
موفق و پیروز باشید.
از لطفتون ممنون
ولی من نتونستم مشابهش رو واسه یه فرم بنویسم
وقتی توی on drag over فرم می نویسم
خطا میده:41:کد:if Source is Tform then
Accept := true;
سلام
مگه میخواهی چی Drag&drop کنی؟؟
سلامنقل قول:
گفتم که میخوام خود فرم رو درگ کنم
اگر می خواهی با موس فرم را جابه جا کنی از کد زیر استفاده کن
البته اگر این کد را در هر یک از کامپوننت ها وارد کنی عمل خواهد کرد
کد:procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
Name.Perform(WM_SysCommand ,$f016,0);
end;
سلامنقل قول:
واقعا ممنونم
این دقیقا همون چیزی بود که می خواستم
میشه در مورد این دو خط یه توضیحی بدین:20:
و یه سوال دیگه
اگه این کد رو مثلا واسه یه کلید بنویسیم
دیگه رویداد onclick اجرا نمیشه
چکار کنم تا این مشکل حل شه؟!
درباره چیش توضیح بدم ؟! من خودم این کد رو همین جوری پیدا کردم و چیزه زیادی نمی دونم شرمندهنقل قول:
میشه در مورد این دو خط یه توضیحی بدین
شما اول مشخص کنید که برای چه منظوری می خواهید که دکمه ها و سایر کامپوننتهای موجود در فرم را جابه جا کنید ؟نقل قول:
و یه سوال دیگه
اگه این کد رو مثلا واسه یه کلید بنویسیم
دیگه رویداد onclick اجرا نمیشه
چکار کنم تا این مشکل حل شه؟!
یکی از جواب های سوال این است که می خواهید کاربر تغییراتی در شکل و ظاهر برنامه انجام بده و بعد از این پس با همان شکل که می خواهد برنامه اجرا بشه اگه این گونه است که شما به راحتی می توانید با یک دستور شرطی بررسی کنید و بعد اجرا کنید مثلا شما یک متغییر با مقدار boolean ایجاد می کنید اگر مقدارش true باشه یعنی کاربر خواست اشیائ فرم را جابه جا کنه امکانش باشه در غیره این صورت همان چیزی که می خواهید خواهد شد
کد:procedure tform1.formmousedown(sender: Tobject; button: Tmousebutton;
shift: Tshiftstate; x, y: Integer);
begin
if (T=true)
begin
releasecapture;
name.perform(wm_syscommand ,$f016,0);
end;
end;