（2）JVCL之快速为程序添加拖拽功能

D-Nolan

已于 2022-04-13 19:18:38 修改

阅读量183

点赞数

分类专栏： JVCL/JCL 文章标签： delphi

于 2022-04-13 13:31:01 首次发布

本文链接：https://blog.csdn.net/gust2013/article/details/124145879

版权

JVCL/JCL 专栏收录该内容

16 篇文章 3 订阅 ¥69.90 ¥99.00

订阅专栏

本文介绍了如何利用JVCL库中的JvDragDrop控件，轻松为Delphi程序添加拖拽功能，以提高文件操作的便捷性。

摘要由CSDN通过智能技术生成

几乎每个小软件都支持拖拽功能，因为拖拽调用文件太方便了，Delphi写代码当然也可以实现。现在有了JVCL一个控件就解决。

1、拖入控件JvDragDrop

2、编写代码

procedure TForm1.FormCreate(Sender: TObject);
begin
  JvDragDrop1.AcceptDrag:=True;
end;

procedure TForm1.JvDragDrop1Drop(Sender: TObject; Pos: TPoint;
  Value: TStrings);
var
  i: integer;
begin
  for i:=0 to JvDragDrop1.Files.count-1 do
  begin
    Memo1.Lines.Add(JvDragDrop1.Files.Strings[i]);
  end;
end;