如何实现拖动打开文件

dzhl02 2008-07-05 11:05:52

我用richtextbox想实现拖动打开文件功能,使用richtextbox的拖动打开时,只能将文件的图标拉进richtextbox,而不能显示具体内容,望高手们赐教解决方法.目前初步设想使用form的拖动功能,但需获取拖动文件的完整路径,请高手们帮忙解决下.

...全文

55 2 打赏收藏转发到动态举报

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

dzhl02 2008-08-01

打赏
举报

虽然不是从楼上这里得到的答案,但你的答案也没错,分数就给你了

Love_Infinity 2008-07-06

打赏
举报

private void Form1_Load(object sender, EventArgs e)
{
richTextBox1.EnableAutoDragDrop = true; //设置允许拖放对象
richTextBox1.DragDrop += new DragEventHandler(richTextBox1_DragDrop); //注册拖放事件
}

void richTextBox1_DragDrop(object sender, DragEventArgs e)
{
//获取拖放到控件上的文件路径,因为支持拖放多个,输出是一个数组!
MessageBox.Show(((string[])e.Data.GetData("FileName"))[0].ToString());
e.Effect = DragDropEffects.None;//设置拖放后的显示效果,这里设置无
}

知道了文件路径,读取它的数据,不难了呵呵!

拖动文件到执行程序时相当于执行程序的Open的功能，也能将程序作为默认文件的打开程序

Delphi 实现拖拽文件到窗体内显示文件全路径，以拖放的方式打开你想要的文件，直接拖放文件到窗体的光标处即可，程序将自动获取文件路径和名称。当文件拖放至窗体中后，系统将向窗体发送WM_DRAPFILES事件，因此我们可以在WMDROPFILES过程中获取文件总数及文件名。当程序启动时，启用文件拖放功能。当第二个参数True时，启用文件拖放，如果为False则禁止文件拖放。原理大致就是这样，具体请参阅源代码，演示程序在D7环境可直接编译。

Qt实现：通过鼠标拖拽，打开文本文件详细内容，参见博客“Qt: QDropEvent拖拽事件，拖拽打开文件”（http://blog.csdn.net/rl529014/article/details/53057577）

VB以拖动文件打开文件的示例，看到不少程序有这种效果，甚至现在WEB上也有这种效果了，记的QQ邮箱里就有拖动文件到指定区域添加附加的功能，本程序基于VB源码实现，将文件拖放到窗口区域内，窗口随着Picture控件自动改变大小，即可打开一张图片显示在窗口中。

Delphi 文件拖放显示路径-支持打开多文件，是一种比较人性化的文件打开方式，拖动文件到Delphi窗口中，即可获取并显示文件路径，本源码还可获取拖放的文件个数，程序运行界面如演示截图所示。拖动文件放入本窗口中，即可显示出该文件所在的路径文件夹信息。实现思路也挺简单：先建立工程然后添加一个memo控件，用来存放路径。拖拽文件需要用到shellAPI所以，在单元里面需要添加shellAPI，在过程里 procedure TForm1.FormCreate(Sender: TObject);加入此函数DragAcceptFiles(Form1.Handle,true); //注册拖放文件。