100分的小问题!高手请进!

ss 2002-05-26 09:34:36
在listView中以报表形式显示数据,问:如何让用户可以用鼠标拖动某行?
...全文
27 15 打赏 收藏 转发到动态 举报
写回复
用AI写文章
15 条回复
切换为时间正序
请发表友善的回复…
发表回复
netlib 2002-05-27
  • 打赏
  • 举报
回复
没人回答,我来说说。
ListView.Dragdrop事件内容
procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
var
ln1,ln2: TListItem;
begin
Ln1:=TListItem.Create(ListView1.Items);
ln1.Assign(Listview1.Selected);
ln2:=listview1.GetItemAt(x,y);
ListView1.Selected.Assign(ln2);
Ln2.Assign(Ln1);
end;
ListView的Dragover事件内容
procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Try
if (Sender as TListView).Name='ListView1' then
accept:=true;
except
end;
end;

你看看效果,是这个意思吧
还有,别忘了ListView1.DragMode:=dmAutomatic.
ok!
smhpnuaa 2002-05-27
  • 打赏
  • 举报
回复
不错,确实是有高手,收藏了!
delphi0302 2002-05-26
  • 打赏
  • 举报
回复
up
ss 2002-05-26
  • 打赏
  • 举报
回复
就是怎么用鼠标拖动ListView中的item(以vsReport形式显示)!
superljj 2002-05-26
  • 打赏
  • 举报
回复
up
ksaiy 2002-05-26
  • 打赏
  • 举报
回复
你说的我不太明白,你在说仔细一点了 UP
qiqi97 2002-05-26
  • 打赏
  • 举报
回复
UP~~~~~~~~~~~~~~~~~~~~~~~~
smhpnuaa 2002-05-26
  • 打赏
  • 举报
回复
关注!
njbudong 2002-05-26
  • 打赏
  • 举报
回复
关注,收藏!!
================================================================
一颗红心向前看,为了革命两茫然,不好意思才囊尽,只能说上一点点。
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
★ 我踢 我踢 我踢 我踢 我踢 我踢 我踢 我踢 我踢 ★
★ 你UP 你UP 你UP 你UP 你UP 你UP 你UP 你UP 你UP ★
★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆★☆
================================================================
东方小黑 2002-05-26
  • 打赏
  • 举报
回复
up&gz
delphimm 2002-05-26
  • 打赏
  • 举报
回复
up
luoshumeng 2002-05-26
  • 打赏
  • 举报
回复
UP!
smhpnuaa 2002-05-26
  • 打赏
  • 举报
回复
关注!
newnewworm 2002-05-26
  • 打赏
  • 举报
回复
up
ss 2002-05-26
  • 打赏
  • 举报
回复
UP者也有分!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧