如何在Delphi中实现从资源管理器到托管窗体或控件的文件名拖动



我在从资源管理器拖放到我的应用程序中时遇到了问题。当我创建一个简单的VCL表单应用程序时,我可以使用这里的演示代码,它运行良好。我自己的投放目标是一个在框架和嵌入表单中深层对齐的控件,将工作演示例程移动到此表单是不起作用的。我试着在将表单和其他控件移到一边后,在深度嵌入的表单上放置一个TPanel,这样我就可以在这里尝试演示代码:放在TPanel上的方式,这也不起作用。如果我放置线路

DragAcceptFiles(Handle,true);

在我的MAIN窗体的FormCreate中,光标指示我可以接受文件,但同一行似乎无法接收任何其他深层控件的拖动文件。有人能告诉我可能遗漏了什么吗?谢谢

正如Marjan(和其他人)在上面评论的那样,这是一个Windows句柄问题。将"DragAcceptFiles()"移动到稍后的事件(如FormShow)中解决了问题。

最新更新