Delphi相談室

>>273
ホレ

//生成時パラメータの設定
procedure TForm1.CreateParams(var Params: TCreateParams);
begin
　　inherited CreateParams(Params);
　　Params.ExStyle := Params.ExStyle or WS_EX_ACCEPTFILES;
end;

//ファイルのドロップ処理
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var FileName: array [0..MAX_PATH] of Char;
begin
　　DragQueryFile(Msg.Drop, 0, FileName, SizeOf(FileName));
　　try
　　　　//以下処理
　　　　// FileNameがドロップされたファイル名
　　　　　：
　　　　　：
　　finally
　　　　DragFinish(Msg.Drop);
　　end;
end;

これをForm1の宣言部に忘れずにな
procedure CreateParams(var Params: TCreateParams); override;
procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;