Lazarusで別プロセスからのドラッグ＆ドロップ (ID:148943)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 当方、Lazarus2.0.8+windows10(64bit)の環境です。 タイトル通りLazarusで別プロセスからのドラッグ＆ドロップを受け取りたいのですがうまくいきません。 問題の切り分けのために最小構成のコードで実験しましたが動きません。 まずその最小構成のコードを示します（４０行程度です） unit Unit1; {$mode objfpc}{$H+} interface uses Classes, SysUtils, Forms, Controls, Graphics, Dialogs,Shellapi, windows; type { TForm1 } TForm1 = class(TForm) procedure FormCreate(Sender: TObject); private protected procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; public end; var Form1: TForm1; implementation {$R *.lfm} { TForm1 } procedure TForm1.FormCreate(Sender: TObject); begin DragAcceptFiles(Handle, True); end; procedure TForm1.WMDropFiles(var Msg: TWMDropFiles); begin showmessage('D&D'); end; end. 上記のコードでビルドすると、ドラッグしていったときに、カーソルの形がドロップ可能に変わるので、"DragAcceptFiles(Handle, True);"は、正常に機能していると思われます。 しかし、この状態からドロップしても何も起きません。 ドロップが正常に処理されていれば”D&D”のメッセージが出るはずなのですが。 推測ですが、”procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);”が実行されていないのではないかと思います。 WM_DROPFILESメッセージが飛んできてないとは考えにくいので、メッセージの振り分けが適切にされていないのではないかと思います。 この現象についてなにか（できれば解決法）情報をお持ちの方がいましたらご教示ください。 //15年ほど間にdelphi6+win2kの環境で同様のコードを書いたときは問題ありませんでした。