delphi – 如何使TCheckListBox垂直滚动？

发布时间：2020-12-15 09:23:54 所属栏目：大数据来源：网络整理

导读：我在表单上有一个TCheckListBox.它的Columns属性设置为2,如果有多个项目可以放在屏幕上的两列中,它会在控件底部放置一个水平滚动条. 事实上,这种形式的布局,垂直滚动会更方便.但我似乎无法弄清楚如何让盒子做到这一点.我认为将Columns设置为1应该可以工作,但

我在表单上有一个TCheckListBox.它的Columns属性设置为2,如果有多个项目可以放在屏幕上的两列中,它会在控件底部放置一个水平滚动条.

事实上,这种形式的布局,垂直滚动会更方便.但我似乎无法弄清楚如何让盒子做到这一点.我认为将Columns设置为1应该可以工作,但事实并非如此.

任何人都知道如何使TCheckListBox垂直滚动而不是水平滚动？

您需要将Columns设置为0.

对于所有正值,VCL将LB_SETCOLUMNWIDTH消息发送到基础本机列表框控件,其中width参数设置为列表框客户端宽度除以列数.不适合的项目将启动具有相同列宽的新列,因此水平滚动条变为可见.

如果Columns为0,则有一列跨越列表框的整个客户端宽度,而不适合的项将使垂直滚动条可见,并隐藏水平滚动条.

编辑：

当负值用于Columns属性时,似乎真正感兴趣的是什么.

方法TCustomListBox.CreateParams()根据Columns属性设置LBS_MULTICOLUMN列表框样式.对于负值,设置样式标志,但VCL不发送LB_SETCOLUMNWIDTH消息,因此本机控件使用默认值列宽.这是documented：

15 times the average character width for the font used by the list box.

(搜索“LBS_MULTICOLUMN样式指定”以查找相关的文本段落.)

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!