掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
エクスプローラからのファイルのドラッグ＆ドロップに対応するには (ID：2522)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
コンポーネントを使うようなので、余計なお世話かもしれませんが(^^; 知っていて損はないと思うので…。 type TForm1 = class(TForm) { 省略 } private procedure DropFiles(var Msg: TMESSAGE); message WM_DROPFILES; end; procedure TForm1.FormCreate(Sender: TObject); begin //ドラッグアンドドロップを許可する DragAcceptFiles(Form1.Handle, True); end; //D&D処理 procedure TForm1.DropFiles(var Msg: TMESSAGE); var I, J: Integer; Buf: array [0..255] of Char; begin J := DragQueryFile(Msg.WParam, $FFFFFFFF, Buf, 255); for I := 0 to J -1 do begin DragQueryFile(Msg.WParam, I, Buf, 255); ListBox1.Items.Add(Buf); end; DragFinish(Msg.WParam); end; これでフォームにドラッグアンドドロップすると ListBoxにドロップされたファイルのパスが追加されます。 尚、uses節にShellAPIが必要です。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.