Imageをドラッグ＆ドロップするには？

解決

かんとく 2013-06-29 20:49:57 No: 44776

お世話になっております。

DelphiXE2、Windows7です。

フォームに
Image1,Image2を配置して、
Image1.DragMode:=dmAutoMatic
にして、
Image2DragDrop
にコードを書いて、

Image1をImage2にドラッグ＆ドロップしたいと考えています。

しかし、プログラムを実行すると、Image1をドラッグしたら禁止マークみたいなものが表示されて、ドラッグ＆ドロップできません。

どうしたらよいでしょうか。

よろしくお願いします。

あ 2013-06-29 20:57:38 No: 44777

検索すると、すぐ答えはでると思います。

かんとく 2013-06-29 20:58:37 No: 44778

あまり参考にならないかもしれませんが、コードを書いておきます。

フォーム上に、
Image1
Image2
を配置する。

-------------------------------------------------

procedure TForm1.FormCreate(Sender: TObject);
begin

Image1.DragMode:=dmAutoMatic;

end;

procedure TForm1.Image2DragDrop(Sender, Source: TObject; X, Y: Integer);
begin

image2.Canvas.TextOut(0,0,'OK');

end;

かんとく 2013-06-29 21:13:06 No: 44779

ありがとうございます。

参考（にならないかも）コードを送信している間に、あさんから返信をいただいていましたね。

おかげですぐに答えがわかりました。

以下のコードを追加して、ドラッグ＆ドロップできるようになりました。

ありがとうございました。

----------------------------------------------------

procedure TForm1.Image2DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin

accept:=true;

end;