+- Delphi Can (https://www.delphican.com)
+-- Forum: Delphi (https://www.delphican.com/forumdisplay.php?fid=3)
+--- Forum: Mobil Platform - FireMonkey (FMX) (https://www.delphican.com/forumdisplay.php?fid=7)
+--- Konu Başlığı: Listboxda tecrübem yetersiz kaldı (/showthread.php?tid=2420)
Listboxda tecrübem yetersiz kaldı - serhat - 11-07-2018
Merhaba;
Aylardır araştırma sonucunda listviewde fmx tarafında drag and drop yöntemini bir türlü çözemedim.
Bu araştırma sırasında drag and drop listbox yapıldığını gördüm, bu seferde benim istediğim gibi kodları düzenle yemedim.
2 Adet listbox var. Birincisi master bilgilerin olduğu listbox, 2. ise playlistin yapılacağı listbox.
1) Master listboxdan bir veya birden fazla satırı seçip, playlistin yapılacağı listboxsa sürükle bırak ile kopyasını oluşturmak.
2) Her iki listbox kendi içinde de sürükle bırak durumu gerçekleşecek.
Lütfen tecrübeli arkadaşlar yardımcı olursa sevinirim.
procedure TForm1.ListBox1DragDrop(Sender: TObject; const Data: TDragObject; const Point: TPointF); begin if Data.Source is TFmxObject then TFmxObject(Data.Source).Parent := ListBox2; end; procedure TForm1.ListBox1DragOver(Sender: TObject; const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation); begin Operation := TDragOperation.Move; if Data.Source is TListBoxItem then TListBox(Sender).AddObject(TListBoxItem(Data.Source)); end;
Listboxda tecrübem yetersiz kaldı - mcuyan - 13-07-2018
şu makaleye bir göz atın..
Ayrıca AllowDrag properties ini de gözden kaçırmayın
http://www.delphiforfun.org/Programs/delphi_techniques/arrange_listbox.htm
ayrıca bu linkde de kendinize göre uyarlayabileceğinz listview kodları var.
https://www.experts-exchange.com/articles/10054/Implementing-a-ListView-in-Firemonkey.html