如何从 ListView 中把选中的文本拖入到另一个程序的 Edit 框中。

[lijun]

能否给我简单一些源程序，先谢了!

[netsong]

关注

[iforever]

这是拖动树节点的一些代码,参考一下就知道了



procedure TfrmTecCheckNet.TVDragDrop(Sender, Source: TObject; X, Y: Integer);
var
DesNode: TTreeNode;
begin
if (Sender is TTreeView) and (Source is TTreeView) then
begin
DesNode:=TV.GetNodeAt(X, Y);
if (DesNode<>nil) and (Drag_SrcNode<>nil) then
begin
Drag_SrcNode.MoveTo(DesNode,naInsert);
SQLNodeMoveTo(Drag_SrcNode, DesNode);
end;
end;
end;

procedure TfrmTecCheckNet.TVDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
Accept:=true;
end;