Delphi 在ListView中拖动图标.rar

  • L0_773666
    了解作者
  • 9.2KB
    文件大小
  • rar
    文件格式
  • 0
    收藏次数
  • VIP专享
    资源类型
  • 0
    下载次数
  • 2022-06-15 04:46
    上传日期
Delphi 在ListView中拖动图标,本实例演示如何在程序运行过程中动态拖动TListView组件中的图标。在窗体中添加一个TImageList组件,并且为它添加3个图像文件。然后添加一个TListView组件,设置它的LargeImages和SmallImages属性为TImageList组件,为TListView组件添加3个列表项,并且设置列表项的ImageIndex属性分别对应TImageList组件中的图像索引编号。当用户在TListView组件中用鼠标左键选中一个列表项后,就通过调用BeginDrag函数进行拖动操作,在鼠标拖动过程中,要不停改变选中列表项的位置,代码如下:   procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);   var    PosPoint:TPoint;   begin    PosPoint.x:=X;    PosPoint.y:=Y;    (Source As TListView).Selected.SetPosition(PosPoint);   end;   释放鼠标后,通过设置OnDragOver事件中的Accept参数来决定是否接受拖动操作。在本实例中如果拖动源为TListView组件,那么就设置Accept参数为True,即接受操作,响应代码如下:   procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;    State: TDragState; var Accept: Boolean);   begin    Accept:=Source Is TListView;   end;
draglistview.rar
  • codesc.net
  • 在ListView中拖动图标
  • Project1.res
    876B
  • Unit1.dcu
    4.6KB
  • Unit1.dfm
    57KB
  • Project1.cfg
    358B
  • Project1.dpr
    188B
  • Project1.dof
    2.3KB
  • Unit1.pas
    1.4KB
评论
    相关推荐
    • Delphi
      Delphi
    • DELPHI
      DELPHI系统,供大家分享
    • Delphi
      Delphi
    • delphi
      delphi
    • Delphi 记事本
      个人用Delphi软件做的一个简单的记事本工具,希望对Delphi初学者有帮助
    • delphi
      我用delphi做的一个学生公寓管理系统
    • delphi
      停车卡的delphi设计 与毕业设计相关
    • delphi
      delphi
    • delphi
      通过delphi实现wincc所需要的hmi制作
    • Delphi
      Delphi