谢谢

解决方案 »

  1.   

    在imagerom的drag事件中设置imageto.picture:=imagefrom.picture;imagefrom.picture:=nil!
      

  2.   

    可以通过ondragdrop和ondragover事件配合实现
      

  3.   

    源控件
    Image1.DragMode:=dmAutomatic;目标控件
    Image2的OnDragOver事件中(Sender as TImage).picture.Assign((Source as TImage).picture);
      

  4.   

    谢谢楼上
    你的答案可以实现
    不过我想在拖动全程的鼠标光标是一样的,全和在Image2中时一样,不知道怎么改
      

  5.   

    还有如何从listview托动一个图片到一个image,上面的方法不行,listview没有picture属性
      

  6.   

    咳,怎么就不会举一反三?类变了,强制转化的类跟着变,(Source as TListView)(Sender as TImage).Picture.Assign(nil);
    (Source as TListView).LargeImages.GetBitmap((Source as TListView).ItemFocused.ImageIndex,(Sender as TImage).Picture.Bitmap);