//问题描述见 howto 一文,代码最终版本见下文
//标蓝色部分为datatree所要求的,即前文提供的解决方案,但并不奏效
procedure TScriptProperty.DataTreeDragDrop(Sender: TBaseVirtualTree;
Source: TObject; DataObject: IDataObject; Formats: TFormatArray;
Shift: TShiftState; Pt: TPoint; var Effect: Integer; Mode: TDropMode);
var
pnode2: PAdminNode;
data: PInt;
Node2: PVirtualNode;
sql: string;
changeList: TStringList;
FocusNode: PVirtualNode;
TargetNode: PVirtualNode;
...[ 查看全文 ]