“拖放”是在移动鼠标时按住计算机鼠标按钮，然后松开按钮以拖放对象。Delphi使程序拖放到应用程序中变得很容易。

您可以真正地从/拖放到任何您喜欢的地方，比如从一个窗体拖放到另一个窗体，或者从Windows资源管理器拖放到您的应用程序。

拖放示例

启动一个新项目并在窗体上放置一个图像控件。使用对象检查器加载图片（图片属性），然后将DragMode属性设置为dmManual。我们将创建一个程序，允许使用拖放技术移动TImage控件运行时。

dragmode

组件允许两种类型的拖动：自动和手动。Delphi使用DragMode属性来控制用户何时能够拖动控件。此属性的默认值为dmManual，这意味着不允许在应用程序周围拖动组件，除非在特殊情况下，我们必须为此编写适当的代码。无论DragMode属性的设置如何，只有在写入正确的代码以重新定位零部件时，零部件才会移动。

龙舌草

识别拖放的事件称为OnDragDrop事件。我们使用它来指定当用户丢弃一个对象时我们希望发生什么。因此，如果要将组件（图像）移动到表单上的新位置，必须为表单的OnDragDrop事件处理程序编写代码。

OnDragDrop事件的源参数是要删除的对象。源参数的类型为TObject。要访问它的属性，我们必须将其转换为正确的组件类型，在本例中为TImage。

接受

我们必须使用表单的OnDragOver事件来表示该表单可以接受我们想要丢弃的TImage控件。尽管Accept参数默认为True，但如果未提供OnDragOver事件处理程序，控件将拒绝拖动的对象（就像Accept参数更改为False一样）。

运行项目，并尝试拖放图像。请注意，当拖动鼠标指针移动时，图像在其原始位置保持可见。我们不能使用OnDragDrop过程使组件在拖动过程中不可见，因为只有在用户放置对象（如果有的话）后才会调用此过程。

德拉库索

如果要更改拖动控件时显示的光标图像，请使用DragCursor属性。DragCursor属性的可能值与Cursor属性的可能值相同。您可以使用动画光标或任何您喜欢的东西，如BMP图像文件或CUR光标文件。

出身

如果DragMode是dmAutomatic，则当光标位于控件上并按下鼠标按钮时，拖动将自动开始。如果将TImage的DragMode属性的值保留为默认值dmManual，则必须使用BeginDrag/EndDrag方法来允许拖动组件。一种更常见的拖放方式是将DragMode设置为dmManual，并通过处理鼠标按下事件开始拖动。

现在，我们将使用Ctrl+MouseDown键盘组合来允许进行拖动。将TImage的DragMode设置回dmManual，并按如下方式编写MouseDown事件处理程序：

BeginDrag接受一个布尔参数。如果我们传递True（如此代码中所示），则立即开始拖动；如果为False，则在将鼠标移动一小段距离之前不会启动。请记住，它需要Ctrl键。