TreeView的Expanding和MouseDown问题
代码如下：
procedure TFmrightset.TreeView2Expanding(Sender: TObject; Node: TTreeNode;
var AllowExpansion: Boolean);
var t: TTreeNode;
begin
t := TreeView2.GetNodeAt(tx,ty);
if t <> nil then
ShowMessage(txy.Text);
end;
////////////////////////////////////////////////////
procedure TFmrightset.TreeView2MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin

if button=mbleft then
begin
tx := x;
ty := y;
end;
end;

出现了一个奇怪的毛病：
我点击节点2时ShowMessage节点1，然后再点击节点3时则ShowMessage节点2。。。总之都慢了一拍。这是为什么？我找了很久发觉好像没有人遇到类似情况似的。。只好问问各位了。感恩

[解决办法]
procedure TFmrightset.TreeView2Click(Sender: TObject);
begin
if TreeView2.GetHitTestInfoAt(tx, ty) = [htOnButton] then
begin
//点击的是+号
end;
end;