Windows fmxでのexplorerからのFormへのファイルのドラグアンドドロップ

[nao doc]

naoといいます。
表題のようにFiremonkeyでエクスプローラーからのファイルを
Formにドラグアンドドロップしてwm_dropfilesをhookすることは可能でしょうか？

Formそのものではなく、何らかのコンポーネントを置いて、
DragOverで許可して、DragDropで処理することは可能ですが、
Dragを認識するエリアが何故か狭かったり（左上の1／4くらいですかね）するの
と、必要もないコンポーネントを置くのが少しだけ嫌なんですが.....。

VCLとかでは沢山のサンプルもありますし、できてはいますが、
64bit版を作りたかったりするのです。C++ Builder Community Edition 10.4.2
です。ご存じの方はお教えいただけると幸いです。

よろしくお願いいたします。

--
nao <jake....@gmail.com>

[nao]

Jun HOSOKAWA

@pikさんが書かれている、

FireMonkey と Windows - Qiita

を参考にして、delphi->c++ builderのトランスレートをして一応動きました。

あー、SetWindowLongPtrを使いました。c++ builder版は、

FireMonkey C++Builder에서 Window Message사용하기 : 네이버 블로그 (naver.com)

も参考にしました。日本語へ自動翻訳してから読みましたけどね。

32bit 64bit共用のソースで動いてます。

一応御報告まで。とりあえずはSetWindowLongPtr使うのが一番簡単ですかね？

2022年4月28日木曜日 14:30:17 UTC+9 nao:

naoといいます。
表題のようにFiremonkeyでエクスプローラーからのファイルを
Formにドラグアンドドロップしてwm_dropfilesをhookすることは可能でしょうか？

[細川淳]

nao さん
こんにちは

細川です。
かなり遅レスですが…

> 表題のようにFiremonkeyでエクスプローラーからのファイルを
> Formにドラグアンドドロップしてwm_dropfilesをhookすることは可能でしょうか？

WM_DROPFILES を使う必要があれば、記事を参考にした WindowProc を置き換えるのが一番簡単です。
そうではなく、単純に Drag & Drop を受取りたいのであれば、もっと簡単な方法があります。
TCommonCustomForm は Drag & Drop の機構を持っているので、その処理を override して変更します。
具体的には下記の様に DragOver, DragDrop メソッドを定義してその中でやりたいことをします。

----------
TForm1 = class(TForm)
public
procedure DragOver(
const Data: TDragObject;
const Point: TPointF;
var Operation: TDragOperation); override;
procedure DragDrop(const Data: TDragObject; const Point: TPointF); override;
end;

procedure TForm1.DragDrop(const Data: TDragObject; const Point: TPointF);
begin
inherited;

// ドロップされたファイルの一覧を表示
for var F in Data.Files do
Memo1.Lines.Add(F);
end;

procedure TForm1.DragOver(
const Data: TDragObject;
const Point: TPointF;
var Operation: TDragOperation);
begin
inherited;

// TDragOperation.None 以外を指定する
Operation := TDragOperation.Copy;
end;
----------

FireMonkey のコントロールは OS から見て「ただの絵」です。
ですのですべてのイベントは一旦 Form を通ります。
なので、TForm のメソッドを override するとすべての処理をフックできます。

> Dragを認識するエリアが何故か狭かったり（左上の1／4くらいですかね）する

これは 10.4 の High Resolution 対応が中途半端だったせいで 11.0 では修正されています（別の問題が起こっていますが…）

2022年4月30日(土) 14:24 nao <jake....@gmail.com>:

> --
> このメールは Google グループのグループ「Japan RAD Studio User Group」に登録しているユーザーに送られています。
> このグループから退会し、グループからのメールの配信を停止するには radstudio-jp...@googlegroups.com にメールを送信してください。
> このディスカッションをウェブ上で閲覧するには https://groups.google.com/d/msgid/radstudio-jp/4987f8c6-5f30-4bfc-ae8f-eac87632efa4n%40googlegroups.com にアクセスしてください。

[nao doc]

細川さん、こんにちは。
ここにいらっしゃるのはなにげに知ってはいたのですが、
お出ましいただいて恐縮です。

提示していただいたDelphiのソースをC++ builderに直して
動かしてみました。もちろんちゃんと動きますね。
fmxのTFormにはデフォルトでOnDragOverやらOnDragDropが
ない(vclにはありましたよね）が、なければoverrideすればいいという。
勉強になりました。ありがとうございます。

On Fri, 6 May 2022 02:13:38 +0900
細川淳 <j...@serialgames.co.jp> wrote:

> WM_DROPFILES を使う必要があれば、記事を参考にした WindowProc を置き換えるのが一番簡単です。
> そうではなく、単純に Drag & Drop を受取りたいのであれば、もっと簡単な方法があります。
> TCommonCustomForm は Drag & Drop の機構を持っているので、その処理を override して変更します。
> 具体的には下記の様に DragOver, DragDrop メソッドを定義してその中でやりたいことをします。

--

nao <jake....@gmail.com>

[細川淳]

nao さん
こんにちは

細川です。

> fmxのTFormにはデフォルトでOnDragOverやらOnDragDropがない(vclにはありましたよね）

そうですね。
このあたりのイベントは FMX では TControl 側に定義されていますね。
なので、本当は「 FMX では Drag&Drop は Control で処理してね」ということなんだと思います。
とはいえ、全体を受け入れ可能にするのを Control 側で処理しようとするとすごい面倒なんですよね…

2022年5月8日(日) 10:59 nao doc <jake....@gmail.com>:

> --
> このメールは Google グループのグループ「Japan RAD Studio User Group」の登録者に送られています。
> このグループから退会し、グループからのメールの配信を停止するには radstudio-jp...@googlegroups.com にメールを送信してください。
> このディスカッションをウェブ上で閲覧するには、https://groups.google.com/d/msgid/radstudio-jp/20220508105932.990E.4A07D491%40gmail.com にアクセスしてください。

[Mam Mam]

https://mam-mam.net/delphi/fmx_drop_files.html

にSetWindowLongを使ってウィンドウプロシージャを置き換える方法でfmxでファイルのドラッグドロップを行うDelphiソースを作ってみました。ご参考まで。

2022年5月8日(日) 22:55 細川淳 <j...@serialgames.co.jp>:

このディスカッションをウェブ上で閲覧するには、https://groups.google.com/d/msgid/radstudio-jp/CAEcB0P7_zYzgBzt5ZhHWWpSy9%3DXoj3FimzkyrzOmFq9TQNxuWQ%40mail.gmail.com にアクセスしてください。