关于TreeView的右键问题

Question

我将rightclickselect属性设置为true，右键点击树结点后改节点变成深蓝色了，但是selected属性却死活没有变````怎么办？，给分~~~~

Answer 1

procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var Node: TTreeNode;
begin
  Node := TreeView1.GetNodeAt(X,Y);
  if Node <> nil then
    Node.Selected := True;
end;