摘要:
控件事件顺序:先执行DragOver事件,后执行DragDrop事件var ListItem:TListItem; procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean); begin Accept := true; ListItem:=ListView1.Selected; end; procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Int 阅读全文