delphi - 文件拖放不适用于 Lazarus 中的表单

Question

我在 TForm1.FormDropFiles 中遇到了一个非常奇怪的问题。

我已附上整个项目。我无法定位问题。

执行项目后，会显示form1，并显示系统托盘图标，当将文件拖放到form1上时，会显示文件名。这有效。但是，当从系统托盘 - 显示放置平台菜单调用 frmDrop 表单，并将文件拖放到 frmDrop 上时，就会显示垃圾。

请查看项目和指南，我在其中错过了什么。该项目附在下面。

Demoproject

Answer 1

formdrop 单元的顶部如下所示:

unit formdrop;

{$mode objfpc}

但它应该看起来像这样:

unit formdrop;

{$mode objfpc}{$H+}

在 objfpc 中，字符串默认是短字符串。要使用长字符串，您需要添加 {$H+}。 LCL 是针对长字符串编译的，因此您需要匹配它。如果您不这样做，则您在 OnDropFiles 事件中收到的字符串与 LCL 发送给您的字符串之间不匹配。