各位大大好,怎样才能做到当点击treeview某一项前的'+'时，此项同时被选中?
如下图,当我单击"商品a"左边的" "使其展开时,我希望这一栏能被同时选中,这样我就可以改变左边的图案了

这是我的code,写在treeview的on click中

for i:= 0 to treeview1.Items.Count-1 do
begin
if treeview1.ITems[i].Expanded=true then //如果是展开的
begin
treeview1.ITems[i].selectedIndex:=1;
end
else begin
if TreeView1.Items[i].Count=0 then //如果是根节点
begin
treeview1.ITems[i].selectedIndex:=1;
end
else begin
treeview1.ITems[i].selectedIndex:=0;
end;
end;
treeview1.refresh;
end;

方法找到了:

procedure Tform1.TreeView1MouseUp(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
TreeView1.selected:=TreeView1.GetNodeAt(X,Y) ;
end;