動的に生成した複数のコンポーネントをドラックドロップするには (ID:39668)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Imageの生成時にイベントを設定 Imagel.OnMouseDown := Image1MouseDown; OnMouseDown の中は (Sender As TImage).BeginDraw(False); ScrollBoxのDragOverイベントはドラッグされてるのがImageなら受け入れるように処理 if Source is TImage then Accept := True; 後は、ScrollBoxのDragDropイベントでドロップ処理をする (Source as TImage).Left := X; (Source as TImage).Top := Y; 超手抜きだとこんな感じでドラッグドロップの移動は出来ると思います。 ドラッグ中にイメージを表示するとかは、TDragObjectを継承してなんかしたら出来るんじゃ無いかと思いますが良く知りません。