谁能告诉我这是为什么 ？

Question

这是使用了TVS_CHECKBOXES的问题。如果一定要去掉横向滚动条，可以用ShowScrollBar(TCheckBoxTreeView.Handle,SB_HORZ,false);—————————————————————————————————
MaximStr := '宠辱不惊，看庭前花开花落，去留无意；
             毁誉由人，望天上云卷云舒，聚散任风。';
I.Maxim := MaximStr;
I.Explain := '可用分不够可以给我发短消息';
I.Desire := '加不加分随你';
—————————————————————————————————