====treeview使用右键菜单的时候，如何使焦点也落在点击的节点上？====

Question

修改这句：
dd:=TreeView1.Selected;
改为：
TreeView1.Selected := dd;

Answer 1

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var dd:TTreeNode;
begin
if button= mbRight then
    if treeView1.GetNodeAt(x,y)<>nil then
         begin
          ShowMessage('yyyyyyyyyyyy');
          dd:=TreeView1.GetNodeAt(x,y);
          dd:=TreeView1.Selected;
　       end
     else
        ShowMessage('nnnnnnnnnnnn');end;

Answer 2

chechy(chechy) :
    你好。不知道昨夜我的眼什么花得那么。
    有点不好意思！多谢了。