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;