产生鼠标拖动效果

Question

如题？怎样产生“产生鼠标拖动效果”？？？？

Answer 1

建一个treeview，添加节点procedure TForm1.TreeView1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  (sender as TTreeview).BeginDrag(false);
end;一个接受控件如imageprocedure TForm1.Image1DragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
  if source.ClassType=TTreeview then
  begin
    Accept:=true;
    image1.Picture:=image2.Picture;  //表示有东西放入,换图片
  end
end;拖动结束,处理procedure TForm1.Image1DragDrop(Sender, Source: TObject; X,
  Y: Integer);
begin
   showmessage('ok');
end;