2017-06-21 38 views

回答

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; 

enter image description here


或者你可以完全放弃对内置组件机构,并且使用简单的复选框建立自己的组件类页。您可以按照自己喜欢的方式进行布局。

用于实现自定义组件页面的例子,请参阅创建自定义任务页面

或者类似的问题:

相关问题