Konuyu Oyla:
  • Derecelendirme: 5/5 - 1 oy
  • 1
  • 2
  • 3
  • 4
  • 5
İnsert işleminin tutarsızlığı
#1
Selamün aleyküm.

İki faklı listviewler arası drag and dpor ile insert işlemi gerçekleştiriyorum. 
İlk eklediğim indexlerde herhangi bir hata oluşturmuyor. Fakat araka, arkaya farklı indexleri ekleme istediğimde, benim seçtiğim değilde faklı bir index ekliyor bu durumu nasıl çözebilirim?

Saygılarımla.



function GetIndexAtPos(LV: TListView; TP: TPointF): Integer;
var
  I: Integer;
  TR: TRectF;
begin
  Result := -1;
  for I := 0 to LV.Items.Count - 1 do
  begin
    TR := LV.GetItemRect(I);
    if TR.Contains(TP) then
    begin
      Result := I;
      Break;
    end;
  end;
end;

procedure TForm1.ListPDragDrop(Sender: TObject; const [Ref] Data: TDragObject;
  const [Ref] Point: TPointF);
var
  Obj: IControl;
  Plx, Pgx: Integer;
begin
  Obj := ObjectAtPoint(Screen.MousePos);
  if Obj <> Nil then
  begin
    Plx := GetIndexAtPos(ListP, Point);
    Pgx := GetIndexAtPos(ListL, Point);
    if Plx <> -1 then
    begin
      ListP.Items.Insert(Plx);
      ListP.Items[Plx].Data['Metre'] := ListL.Items[Pgx].Data['Metre'].ToString;
    end;
  end;
end;

procedure TForm1.ListPDragOver(Sender: TObject; const [Ref] Data: TDragObject;
  const [Ref] Point: TPointF; var Operation: TDragOperation);
begin
  Operation := TDragOperation.Move;
end;
Cevapla
#2
İlk eklemeden sonra indexlerin sırası değişiyor gibi
Yalnızım ama bir kente yürüyen ordu gibiyim, edebiyattan kaçınmalıyım..
Cevapla


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
  Insert ve Silme yakalama ahmetb 4 432 18-04-2019, Saat: 16:29
Son Yorum: wiseman
  Listbox insert YasinDalli 10 1.442 07-09-2018, Saat: 12:01
Son Yorum: YasinDalli
  Listview insert Dostk 2 583 13-07-2018, Saat: 15:50
Son Yorum: ssahinoglu
  Combobox database insert hido 4 952 08-02-2018, Saat: 03:42
Son Yorum: dilo
  FMX Sqlite İnsert Into Blob Data Örneği mcuyan 2 1.079 13-05-2017, Saat: 11:42
Son Yorum: yhackup



Konuyu Okuyanlar: 1 Ziyaretçi