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事件里实现图标位置的互换

代码如下：

 

procedure TF_Main.img2DragDrop(Sender, Source: TObject; X, Y: Integer);
var
  Oldx: Integer;
  imgsrc, imgdes: timage;
begin
  imgsrc := TImage( Sender );
  imgdes := TImage( Source );

  Oldx := imgsrc.Left;
  imgsrc.Left := imgdes.Left;
  imgdes.Left := Oldx;
end;

procedure TF_Main.img2DragOver(Sender, Source: TObject; X, Y: Integer;
  State: TDragState; var Accept: Boolean);
begin
  if Source is TImage then
    Accept := True;
end;

 

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