本文介绍了在 Delphi 的 FMX 框架下如何实现拖放(Drag & Drop)功能。通过重载 DragDrop 和 DragOver 方法，可以轻松处理拖放到表单的文件。在 VCL 框架下，使用 ShellAPI 的 DragAcceptFiles 函数初始化拖放，并通过 FormWndProc 处理 WM_DROPFILES 消息。
FMX 框架下，
直接重载 DragDrop ，DragOver即可。
声明：
procedure DragDrop(const Data: TDragObject; const Point: TPointF);override;
procedure DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation);override;
实现：
procedure Form1.DragDrop(const Data: TDragObject; const Point: TPointF);
begin
var filepathname:= Data.Files[0]; //也可以有多个文件，用for循环可以读出来
end；
procedure Form1.DragOver(const Data: TDragObject; const Point: TPointF; var Operation: TDragOperation);
begin
Operation := TDragOperation.Link;//提示“链接”
//TDragOperation.Move; //提示“移动”
//TDragOperation.Copy; 提示“复制”
end;
vcl 框架下，
FormCreate中初始化：
OrgFormWndProc := Self.WindowProc;
Self.WindowProc := FormWndProc;
最低0.47元/天 解锁文章
扫一扫
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
