大送58分，请教TListView的问题

Question

以上的三个问题我都解决了。如果你把这个题目的分加到100并且把分给我，就把程序示例的zip文件发到你的mail中。保证解决你的问题，童叟无欺。

Answer 1

我也想要，收到即给分
  [email protected]

Answer 2

to:78product()
    你挺贪心的呀.

Answer 3

中子，小兵：　　信已经发出，请注意查收。如果没有收到，请马上给我写信：
[email protected]

Answer 4

呵呵～～11:35了，也该睡觉了。
还有谁要的，留下mail

Answer 5

给我份好吗？[email protected]，多少分？

Answer 6

右键弹出菜单的例子
procedure TfrmMain.TreeViewMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
   Node:TTreeNode;
begin
    TreeView.PopupMenu := nil;
    if Button <> mbRight then exit;
    Node := TreeView.GetNodeAt(X,Y);
    if Node <> nil then
      begin
         Node.Selected := true;
         TreeView.PopupMenu := popDir;
      end;
end;
关于拖放的例子，到处都是，看看书就知道了

Answer 7

78product:我还没有收到。
已经给你写了信，如果还没收到，
麻烦您给[email protected]发一下，
收到后马上给分!