Listview控件问题? 请问如何在LISTVIEW控件上实现图标拖动的效果 {如把桌面的>排列图标>自动排列(不选)时,图标可以自由拖动到任何位置的效果} 请教? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 每个item都有left和top属性只要设置坐标,放哪儿都可以。 设置 ListView的 DragMode 为 dmAutomatic ,uses CommCtrl;// OnDragOver事件procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);begin Accept := Sender = Source;end;// OnDragDrop事件procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);begin ListView_SetItemPosition(ListView1.Handle, ListView1.Selected.Index, X, Y);end; 对对,只要设Left和Top就行了,不用uses CommCtrl单元,// OnDragDrop事件procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);begin ListView1.Selected.Left := X; ListView1.Selected.Top := Y;end; tchart中使Tlineseries的addXY方法的烦恼 InstallShield 6做的安装如何生成为可执行文件 怎样释放一个ADOStoredProc? 资源消耗处理。 关于表单控件无法获得焦点 我想在delphi中防止同时执行两个程序实例,应该怎么办呢?在线等。。。。。 quick report不同版本之间兼容吗? 数据更新问题!!急!!1 大家帮忙,请问delphi程序如何打包? 菜问题,20分白送!!想知道DELPHI 5的ADO升级包解决了什么问题,不升级行吗? sysu(死树) 请跟帖 thanks~ 急!!!求windows系统资源的API
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept := Sender = Source;
end;
// OnDragDrop事件
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ListView_SetItemPosition(ListView1.Handle, ListView1.Selected.Index, X, Y);
end;
// OnDragDrop事件
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
ListView1.Selected.Left := X;
ListView1.Selected.Top := Y;
end;