くだすれDelphi(超初心者用)その60【Embarcadero】 (463ﾚｽ)
くだすれDelphi(超初心者用)その60【Embarcadero】 http://mevius.5ch.net/test/read.cgi/tech/1700737330/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
448: デフォルトの名無しさん [sage] 2025/06/14(土) 14:26:04.45 ID:YZlEn/ao Delphi 12.1 CE で右ドラッグ＆ドロップのコンテキストメニュー（「ここにコピー」「ここに移動」「プロパティ」「WinRAR」などインストールされているアプリの固有メニューなどエクスプローラでの実行時と全く同じ物）をコードで再現したい。 という質問を ChatGPT 、copilot、Claude 3.7 Sonnet、 Gemin Grok 3、 Deepseek にしてみたんですけど 「はい、Delphi言語について日本語で質問できます！」と言いながら procedure ShowDropContextMenu(AFiles: TStrings; ToFolder: string; X, Y: Integer; HND: HWND); こんな感じで呼び出したいと進めていっても どれもみな型違いと未定義の識別子からはじまり煮詰めていっても最後はパラメーター間違いや範囲チェックエラーで行き止まりな感じで メニューが出た場合でも「ToFolder」（ドロップ先のフォルダ）が反映されておらず「ここにFireFileCopyで移動」などもない そもそも procedure で済ますのがいけないのかと 「IShellFolder.GetUIObjectOf( IID_IDropTarget ) を取得して、自分で実装した IDropTarget の引数をそのまま転送すればいい」 というのを見たので ドラッグ＆ドロップには The-Drag-and-Drop-Component-Suite-for-Delphi の TDropFileTarget を使っているので TDropFileTarget の DataObject を使ってゴニョゴニョしてみましたがお手上げでした オープンソースのファイラーがある！とわざわざ Lazarus をインストールして「Double Commander」を開いてみたのですが右ドラッグは簡易実装しかしていませんでした 何か参考になるサイトかコンポーネントはありませんでしょうか？ http://mevius.5ch.net/test/read.cgi/tech/1700737330/448
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.029s