Drag Drop Sender 2x TListview Untescheidung

[padavan]

@marabu
genau -->
Aus der Listview2 kommen dann Einträge hinzu.
Innerhalb der Listview1 soll nur sortiert werden.

@Lannes

Zitat:

Delphi-Quellcode:

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; 
  State: TDragState; var Accept: Boolean); 
begin 
  if (Source = ListView1) or (Source = ListView2) then 
   Accept := True 
   else 
     Accept := False; 
end;

das geht nicht, da dann andere DragDrop Operaton ja auch nicht mehr gingen. Kommen noch mehr dazu, aus Label usw.
(hab´s trotzdem versucht...)

Das mit Automatic hab ich auch in Zusammenhang damit versucht, bringt leider auch keine Änderung

Wahrscheinlich habe ich mal wieder einen ganz anderen Bubu drin.
Ich werd das jetzt mal außerhalb des Programms in einen Testprojekt erstmal richtig ausprobieren, um auszuschließen, das ich mir da selbst ein Bein stelle