delphi中ListView拖曳效果实现

炜旭

于 2016-11-02 10:24:05 发布

阅读量1.8k

点赞数

分类专栏： Delphi 文章标签： drag拖曳listview

本文链接：https://blog.youkuaiyun.com/yang0605016/article/details/53004934

版权

Delphi 专栏收录该内容

14 篇文章

订阅专栏

本文介绍了一个使用Delphi实现的ListView控件拖放功能的具体实现方式。包括拖动开始、拖动进行中及拖放结束三个阶段的处理过程，并通过示例代码展示了如何在两个不同的ListView控件间进行项的拖放转移。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

1、ListView控件 lv_ECG 、lv_His

procedure TfmDataBase.lv_ECGDragDrop(Sender, Source: TObject; X, Y: Integer);
var
i: Integer;
begin
with lv_ECG.Items.Add do
begin
Caption:= lv_NoECG.Selected.Caption;
SubItems.Add(lv_NoECG.Selected.SubItems[0]);
SubItems.Add(lv_NoECG.Selected.SubItems[1]);
end;
lv_NoECG.DeleteSelected;
end;

procedure TfmDataBase.lv_ECGDragOver(Sender, Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
begin
Accept:= (Source as TListView).Name= 'lv_NoECG';
end;

procedure TfmDataBase.lv_ECGMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button= mbLeft then
begin
with Sender as TListView do
begin
if GetItemAt(x,y)<> nil then
begin
BeginDrag(False);
end;
end;
end;
end;