2016-12-04 31 views

回答

1

使用TNewCheckListBox class,就像 「任務列表」(WizardForm.TasksList):

var 
    CheckListBox: TNewCheckListBox; 

procedure InitializeWizard(); 
var 
    CheckTreePage: TWizardPage; 
begin 
    CheckTreePage := CreateCustomPage(wpSelectTasks, 'My check list box page', ''); 
    CheckListBox := TNewCheckListBox.Create(WizardForm); 
    CheckListBox.Parent := CheckTreePage.Surface; 
    CheckListBox.Top := WizardForm.SelectTasksLabel.Top; 
    CheckListBox.Width := WizardForm.TasksList.Width; 
    CheckListBox.Left := WizardForm.TasksList.Left; 
    CheckListBox.Height := 
    WizardForm.TasksList.Top + WizardForm.TasksList.Height - CheckListBox.Top; 
    CheckListBox.WantTabs := True; 
    CheckListBox.Color := clBtnFace; 
    CheckListBox.BorderStyle := bsNone; 
    CheckListBox.MinItemHeight := WizardForm.TasksList.MinItemHeight 

    CheckListBox.AddCheckBox(
    'Additional software', '', 0, False, True, False, False, nil); 
    CheckListBox.AddCheckBox(
    'Install\Update Microsoft DirectX', '', 1, False, True, False, True, nil); 
    CheckListBox.AddCheckBox(
    'Install\Update Microsoft Visual C++', '', 1, False, True, False, True, nil); 
    CheckListBox.AddCheckBox(
    'Install\Update NVIDIA PhysX', '', 1, False, True, False, True, nil); 
end; 

TNewCheckListBox

+0

怎麼給此複選框中的操作?如果只是檢查它會安裝所有。 –

+0

那你真的想要什麼?你想展示如何創建一個*新的*樹檢查表框? (當你質疑狀態)還是你想創建分層的「選擇任務」或「組件」頁面? (什麼是完全不同的問題) –

+0

我可以改變我的問題嗎?我忘了添加單詞「在安裝後給它動作」。 –