delphi的拖拽功能实现

惭愧，编了这么多年程序，还没用过拖拽功能

这次同事要实现图标互换的功能，让我帮忙看一下，于是趁机研究了一下拖拽事件，发现还是比较简单的

参考了http://topic.csdn.net/u/20081015/14/98eef84c-0d2f-43a7-aa82-eef7028ef4f7.html里3150379的回答

要做以下事情：

1、放2个image控件（废话）

2、把要拖拽的image的dragmode属性设为dmAutomatic

3、在目的地image的OnDragOver事件里判断是否接受

4、在目的地image的OnDragDrop事件里实现图标位置的互换

代码如下：

[delphi]view plaincopy

1. procedure TF_Main.img2DragDrop(Sender, Source: TObject; X, Y: Integer);
2. var
3. Oldx: Integer;
4. imgsrc, imgdes: timage;
5. begin
6. imgsrc := TImage( Sender );
7. imgdes := TImage( Source );
8. Oldx := imgsrc.Left;
9. imgsrc.Left := imgdes.Left;
10. imgdes.Left := Oldx;
11. end;
12. procedure TF_Main.img2DragOver(Sender, Source: TObject; X, Y: Integer;
13. State: TDragState; var Accept: Boolean);
14. begin
15. if Source is TImage then
16. Accept := True;
17. end;

http://blog.csdn.net/youthon/article/details/6671679