2016-12-04 34 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

我可以改变我的问题吗?我忘了添加单词“在安装后给它动作”。 –