名前 題名 ▼ たたみやさん > マスター、こんばんは。 > > 昨日今日とDelphiで簡単なコードを書いていて躓いてしまい、 > お知恵を借りたいのですが。。。 > > 環境はWin7アルティメット(32bit)+Delphi2010(Update5)です。 > > > コード > Usesには、shellapiを入れています。 > ----------------------------------------------------------- > > private > { Private 宣言 } > procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES; > public > { Public 宣言 } > end; > > var > Form1: TForm1; > > implementation > > {$R *.dfm} > > procedure tform1.WMDropFiles(var Msg:TWMDropFiles); > var > FileName: array[0..255] of Char; > begin > DragQueryFile(Msg.Drop,0,Filename,255); > ListBox1.Items.Add(Filename); > DragFinish(Msg.Drop); > end; > > ---------------------------------------------------------------- > > >> DragQueryFile(Msg.Drop,0,Filename,255); > の行をブレークポイントにしても、ファイルのD&D時に止まってくれません。 > > Win7かDelphi2010では、何か仕様の変更でもあったのかな・・・ > とか考えてしまいました。 > > WinXPPro+Delphi5で試すと、当然ですが期待の動作をします。 > よろしくお願いします。 > > 話変わって、明日(今日?)は地元商工会のお手伝いで桜祭りに行ってきます。 > しかし未だ桜は咲く気配すらありません(^^;;) > どんなイベントになるのやら。。。 GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link