菜鸟正在学习listview1的拖放功能，只是在listview1和listview2之间相互拖放已经实现了，可我又放了1个listview3....

Question

菜鸟正在学习listview1的拖放功能，只是在listview1和listview2之间相互拖放已经实现了，可我又放了1个listview3,我现在想让listview1既可以拖放到listview2又可以拖放到listview3，怎么做到呢？？procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
//这么写的话只能拖放到listview2，怎么才能既可以拖放到listview2又可以拖放到//listview3呢？？
  accept := source = listview2;end;

Answer 1

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  accept := (source = listview2) or (source = listview3);
end;

Answer 2

myy高手，谢谢您的帮助，但我还有个问题，当我在listview3放下时，我想知道他是从listview2来的呢还是从listview1来的呢？？

Answer 3

同 OnDragOver 事件一样，OnDragDrop 事件也有参数可以判断。请查阅帮助。