|
▼ Mr.XRAYさん
こんばんは
> procedure TForm1.FormShow(Sender: TObject);
> begin
> //Handleは，ドロップ受入れコントロールのハンドル
> DragAcceptFiles(Handle, True);
> end;
すみません。
私も書き漏れで、上記のコードはすでに入っています。
一応、D5で動作したものを、コピペしてましたので。
試しにFormCreateに書き換えてもみましたがだめでした。
なもので、どうしたものかと。。。
> DragQueryFile(Msg.Drop,0,Filename,255); //だから，ここ256
ですよね。
ものぐさで、書きやすい方でやってしまう悪い癖で。
本日の桜祭り、お天気はバッチリでしたが、
やはり桜は全く咲いておらず、花より団子状態で、
音響のオペやりながら、出店の食べ物を食いまくりでした(^^;;)
|