名前 題名 ▼ たたみやさん > ▼ Mr.XRAYさん > > こんばんは > > > procedure TForm1.FormShow(Sender: TObject); > > begin > > //Handleは，ドロップ受入れコントロールのハンドル > > DragAcceptFiles(Handle, True); > > end; > > すみません。 > 私も書き漏れで、上記のコードはすでに入っています。 > 一応、D5で動作したものを、コピペしてましたので。 > 試しにFormCreateに書き換えてもみましたがだめでした。 > なもので、どうしたものかと。。。 > > > DragQueryFile(Msg.Drop,0,Filename,255); //だから，ここ256 > > ですよね。 > ものぐさで、書きやすい方でやってしまう悪い癖で。 > > > 本日の桜祭り、お天気はバッチリでしたが、 > やはり桜は全く咲いておらず、花より団子状態で、 > 音響のオペやりながら、出店の食べ物を食いまくりでした(^^;;) GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link