酢こんぶの思考錯誤(^_^;日記

酢こんぶはファイル処理のツールを作るとき、ファイル指定には必ずDrag&Dropを使うことにしている。その方が直感的で素早く操作できるし、なによりファイル選択のダイアログでディレクトリツリーをたどってファイルを選択するのがまどろっこしくて大嫌いなのだ。

というわけでDelphiを使っていくにあたりDrag&Dropがどのような実装になっているか確認してみると、、、

標準で実装されてねー！

VBではオブジェクトのOLEDropModeというプロパティでファイルのドロップを受け付けるかどうかを制御できるのだが、Delphiのコントロールにはそんなプロパティは見当たらない。調べてみるとDelphiにはエクスプローラからファイルをDrag&Dropで受け付ける機能はなく、必要であればWindowsAPIを使うという仕様になっている。Delphiはマルチプラットフォームの開発環境を提供しているので、Windowsに依存する機能は実装していないということなのかもしれないが、とにかく面倒くさい。

Delphiも世に出てから長い月日が流れているので、不便に思った人たちがDrag&Dropを実現するコンポーネントを開発してたりするわけだが、無料のTurbo Delphi Explorerは外部コンポーネントを取り込むことができないんだなあ。(T_T)

しょーがないのでWeb検索してみると、複数のサイトに

DragAcceptFiles(Handle, True)

という記述でファイルのDrag&Dropを受け付けるようになるとある。

だけどどうしてもうまくいかねえんだなあ、これが。orz

さらにいろいろ探してみると、上記の記述ではうまくいかないことがあるのでCreateParamsをオーバーライドした方がいいという情報を得られた。

情報元はこちら。
http://kazina.seesaa.net/category/1723158-1.html

これでやってみると確かにうまくいくので「めでたしめでたし」かというとそうでもない。上記の方法はどちらもフォーム全体にDrag&Drop可能となってしまうので、二つ以上のコントロールに別々のファイルをDropしたいという要求には応えられず、そして酢こんぶの場合そのような要求が頻繁に発生する。

しょーがないのでまたまたWeb検索したのだが解決策は見つからず、試行錯誤の結果、特定のコントロール内にマウスカーソルが入ったらフラグを立て、ファイルのDropイベントが発生した時のフラグの状態によってどのコントロールにDropされたのかを判断するという方法でなんとか所望の動作を実現したのだが、なんか美しくないなあ、、、。

とりあえずソースはこんな感じ。
-----------------------------------------------------
//ListBox1内にマウスカーソルがあるときだけF1を1にする
procedure TForm1.ListBox1MouseEnter(Sender: TObject);
　begin
　　F1:=1;
　end;
procedure TForm1.ListBox1MouseLeave(Sender: TObject);
　begin
　　F1:=0;
　end;

//ListView1内にマウスカーソルがあるときだけF2を1にする
procedure TForm1.ListView1MouseEnter(Sender: TObject);
　begin
　　F2:=1;
　end;
procedure TForm1.ListView1MouseLeave(Sender: TObject);
　begin
　　F2:=0;
　end;

//Dropイベント発生時の処理
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
　begin

　　if F1=1 then
　　begin
　 　//Listbox1にDropされた時の処理
　　end;

　　if F2=1 then
　　begin
　 　//Listview1にDropされた時の処理
　　end;

　　DragFinish(Msg.Drop);

　end;
-----------------------------------------------------

うーん、まあとりあえずできるようになったからよしとしよう。

ところでファイルの受付が許可状態のフォームに対してファイル受付禁止にすることってできるのだろうか？


------------------------------------------
このブログの本店「木全屋かるた堂」もよろしくです。

・ファーストガンダムのかるた売ってます。
・ファイル整理に便利な自作ツール置いてます。
・写真(コスプレ、ポートレート、動物)公開してます。
------------------------------------------