delphi - ファイル ドラッグ ドロップが Lazarus のフォームで機能しない

Question

TForm1.FormDropFiles で非常に奇妙な問題に遭遇しました。

プロジェクト全体を添付しました。問題が見つかりません。

プロジェクトの実行後、form1 が表示され、システム トレイ アイコンが表示されます。form1 にファイルをドラッグ アンド ドロップすると、ファイル名が表示されます。これは機能します。しかし、frmDrop フォームがシステム トレイ - ドロップ プラットフォーム メニューの表示から呼び出され、ファイルが frmDrop にドラッグ アンド ドロップされると、ゴミが表示されます。

私が見逃していたプロジェクトとガイドをご覧ください。プロジェクトは以下に添付されています。

デモプロジェクト

Answer 1

formdrop ユニットの上部は次のようになります。

unit formdrop;

{$mode objfpc}

ただし、次のようになります。

unit formdrop;

{$mode objfpc}{$H+}

In objfpcstring はデフォルトで短い文字列です。長い文字列を使用するには、追加する必要があります{$H+}。LCL は長い文字列用にコンパイルされているため、それに一致させる必要があります。そうしないと、イベントで受け取るOnDropFiles文字列と LCL から送信された文字列が一致しません。