03-02-2019, Saat: 11:56
Merhaba;
Çok soru soruyorum farkındayım, lütfen kusura bakmayın.
Databasedeki verileri listviewe listeliyorum. Drag and drop ile satırları yer değişikliği yapıyorum buraya kadar soru yok.
Fakat satırın yerini değiştirdikten sonra video da olduğu gibi listview sanki temizlenip yeniden yüklenmiş gibi oluyor.
Sizce bu durum normal midir? yoksa ben mi takıntı yapıyorum?
Çok soru soruyorum farkındayım, lütfen kusura bakmayın.
Databasedeki verileri listviewe listeliyorum. Drag and drop ile satırları yer değişikliği yapıyorum buraya kadar soru yok.
Fakat satırın yerini değiştirdikten sonra video da olduğu gibi listview sanki temizlenip yeniden yüklenmiş gibi oluyor.
Sizce bu durum normal midir? yoksa ben mi takıntı yapıyorum?
procedure TForm4.ListViewxDragDrop(Sender, Source: TObject; X, Y: Integer); var DragItem, DropItem, CurrentItem, NextItem: TListItem; begin if Sender = Source then with TListView(Sender) do begin DropItem := GetItemAt(X, Y); CurrentItem := Selected; while CurrentItem <> nil do begin NextItem := GetNextItem(CurrentItem, SdAll, [IsSelected]); if DropItem = nil then DragItem := Items.Add else DragItem := Items.Insert(DropItem.Index); DragItem.Assign(CurrentItem); CurrentItem.Free; CurrentItem := NextItem; end; end; end;
procedure TForm4.ListViewxDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := Sender = ListViewx; end;