掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ドラッグアンドドロップの情報を受け取るには？ (ID：22659)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
var saFileName: AnsiString; Pos: TPoint; Contr: TControl; begin //ファイルがドロップされたときのマウスカーソルの位置を取得 DragQueryPoint(Msg.Drop, Pos); //マウスカーソル上のコントロールを取得 Contr := FindDragTarget(ClientToScreen(Pos), False); if Contr = Button1 then begin //ドロップされたファイルの名前を取得 SetLength(saFileName, MAX_PATH); DragQueryFile(Msg.Drop, 0, PChar(saFileName), MAX_PATH + 1); SetLength(saFileName, StrLen(PChar(saFileName))); Button1.Caption := saFileName; end; //ドラッグ＆ドロップ用メモリ解放 DragFinish(Msg.Drop); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.