产生鼠标拖动效果

[deepWATERblue]

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

[jinjazz]

建一个treeview，添加节点

procedure TForm1.TreeView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
(sender as TTreeview).BeginDrag(false);
end;

一个接受控件如image

procedure 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;