delphi中ListView拖曳效果实现

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;