掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
windows 8上でドラッグドロップが動かない (ID:44727)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ドラッグドロップというのが、アイコンへのドラッグか、フォームへの ドラッグかによって処理は変わります。どちらかは確定できませんが、 問題点の内容から後者であると仮定して話を進めます。 最小限の構成では試されましたか？ 下記はWindows7 + Delphi6で動きます。 Windows7 のデフォルト設定のままのUAC下でも問題なくです。 もし途中で処理が止まっているとすれば、他の部分の問題でしょう。 他の処理部分を疑った方がよろしいかと思います。 --- usesに ShellAPI を追加する。 フォームのType中のPrivate宣言に以下の2行を追加する。 { Private 宣言 } procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; フォームのCreateイベントに以下の記述を追加する。 DragAcceptFiles(Handle, True); 最後に以下の手続きを実現部に追加する。 procedure TForm1.WMDropFiles(var Msg:TWMDropFiles); var FileName: array [0..255] of Char; begin DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName)); ShowMessage(FileName); DragFinish(Msg.Drop); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.