2017-06-21 91 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


或者你可以完全放棄對內置組件機構,並且使用簡單的複選框建立自己的組件類頁。您可以按照自己喜歡的方式進行佈局。

用於實現自定義組件頁面的例子,請參閱創建自定義任務頁面

或者類似的問題: