VST1: TVirtualStringTree; //按钮公用函数,根据不同 标签tag区分, Screen.Cursor := crHourGlass; //设置屏幕鼠标的形状为crhourGlass with VST1 do try Start := GetTickCount; // Start: Cardinal; case (Sender as TButton).Tag of 0: // add to root begin Count := StrToInt(NodeCountEdit…