delphi的拖拽功能实现

最新推荐文章于 2023-04-12 10:07:03 发布

弘石

最新推荐文章于 2023-04-12 10:07:03 发布

阅读量9.6k

点赞数

分类专栏： Delphi编程文章标签： delphi integer image

本文链接：https://blog.youkuaiyun.com/youthon/article/details/6671679

版权

Delphi编程专栏收录该内容

26 篇文章

订阅专栏

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

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

参考了http://topic.youkuaiyun.com/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;