|
マスター、こんばんは。
昨日今日と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で試すと、当然ですが期待の動作をします。
よろしくお願いします。
話変わって、明日(今日?)は地元商工会のお手伝いで桜祭りに行ってきます。
しかし未だ桜は咲く気配すらありません(^^;;)
どんなイベントになるのやら。。。
|