如何实现拖拽效果

Question

做一个仓库管理的程序，一进主页面是仓库的平面图，
都是货架，上面的东西都是从库里取的，位置不固定,打算用拖拽图片来实现。。然后把位置存在数据库中。。
如何实现？

Answer 1

小弟不懂数据仓库。只是稍微了解一点对象拖动方面的:if (source is Tpicture) and (sender is Timage) then
begin
  image1.picture.assigned(source);
end;

Answer 2

楼上的source是指什么？[Error] Unit1.pas(28): Undeclared identifier: 'source'