答案 0 :(得分:2)
您可以使用TNewCheckListBox.MinItemHeight
属性在核对表框中创建更高的行,从而有效地增加间距。
但问题是设置属性不会影响现有项目。在调用InitializeWizard
时,已填充WizardForm.ComponentsList
。
您可以做的是以编程方式更改每个项目标题以触发重新测量项目。简单地附加一个空格就可以了(如果你愿意的话,甚至可以在事后删除它。)
procedure InitializeWizard();
var
I: Integer;
begin
{ Change line height }
WizardForm.ComponentsList.MinItemHeight := ScaleY(26);
{ Trigger re-measuring of component items }
for I := 0 to WizardForm.ComponentsList.Items.Count - 1 do
begin
WizardForm.ComponentsList.ItemCaption[I] :=
WizardForm.ComponentsList.ItemCaption[I] + ' ';
end;
end;
或者您可以完全放弃内置组件机制,并使用普通复选框构建自己的组件类页面。您可以按照自己喜欢的方式布置。
有关实现自定义组件页面的示例,请参阅
或者有关创建自定义任务页面的类似问题: