安装类型组件控制代码

admin

假设有3个安装类型，4个及以上组件，其中最后一个安装类型为“自定义”（没有自定义类型，不会显示组件列表），代码如下：

1. Procedure CmpListOnClickCheck(Sender: TObject);  //组件选择时检查是否有选定的组件
   
2.   var
   
3.     i: integer;
   
4.   begin
   
5.   WizardForm.NextButton.Enabled := false;
   
6.   for i := 0 to WizardForm.ComponentsList.Items.Count - 1 do
   
7.       begin
   
8.       if WizardForm.ComponentsList.Checked[i] then
   
9.          begin
   
10.          WizardForm.NextButton.Enabled := true;
    
11.          break;
    
12.          end;
    
13.       end;
    
14. end;
    
15. Procedure TypesComboOnChange(Sender: TObject); //安装类型选择时检查是否有组件选定
    
16.   var
    
17.     i: integer;
    
18.   begin
    
19.   WizardForm.NextButton.Enabled := false;
    
20.   for i := 0 to WizardForm.ComponentsList.Items.Count - 1 do
    
21.       begin
    
22.       if WizardForm.ComponentsList.Checked[i] then
    
23.          begin
    
24.          WizardForm.NextButton.Enabled := true;
    
25.          break;
    
26.          end;
    
27.       end;
    
28. end;
    
29. Procedure CurPageChanged(CurPageID: Integer); \\当前页面更改时
    
30.   var
    
31.     i: integer;
    
32.   begin
    
33.   if CurPageID = wpSelectComponents then   \\当当前页面为选择组件时
    
34.      begin
    
35.      WizardForm.NextButton.Enabled := false;
    
36.      for i := 0 to WizardForm.ComponentsList.Items.Count - 1 do
    
37.          begin
    
38.          if WizardForm.ComponentsList.Checked[i]  then
    
39.             begin
    
40.             WizardForm.NextButton.Enabled := true;
    
41.             break;
    
42.             end;
    
43.          end;
    
44.   end;
    
45. end;
    
46. Procedure InitializeWizard();
    
47.   begin
    
48.   WizardForm.ComponentsList.OnClickCheck := @CmpListOnClickCheck;   //组件选择
    
49.   WizardForm.TypesCombo.OnChange := @TypesComboOnChange; //安装类型选择
    
50. end;

复制代码