treeview的拖拽问题，急！(20分)

TREEVIEW1向TREEVIW2拖拽时，在TREWVIEW2的ONDragDrop事件
中设的断点根本没有进去，WHY？

事件选错了。
ONDragDrop是拖拽放手后才产生的事件。拖拽当中TreeView2DragOver事件发生，你要在当中
加入如下代码才成：
procedure TForm1.TreeView2DragOver(Sender, Source: TObject;
X, Y: Integer;
State: TDragState;
var Accept: Boolean);
begin
Accept:=true;
end;

谢了。