2016-12-04 7 views

答えて

1

は単に "タスクリスト"(WizardForm.TasksList)として、TNewCheckListBox classを使用します。

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

私の質問は変わるかもしれませんか?私は単語を追加することを忘れないでください "インストール後にアクションを与える"。 –

関連する問題