Inno Setup入门（二十五）——Inno Setup类参考（11）

Inno Setup入门（二十五）——Inno Setup类参考（11）

今天说说TNewCheckListBox类。
该类和ListBox差不多，只是下面的项可以用CheckBox或者RadioButton选择，是一种比较复杂的类型。
该类继承自TCustomListBox，自身具有以下属性和函数：

TNewCheckListBox = class(TCustomListBox)function AddCheckBox(const ACaption, ASubItem: String; ALevel: Byte; AChecked, AEnabled, AHasInternalChildren, ACheckWhenParentChecked: Boolean; AObject: TObject): Integer;function AddGroup(ACaption, ASubItem: String; ALevel: Byte; AObject: TObject): Integer;function AddRadioButton(const ACaption, ASubItem: String; ALevel: Byte; AChecked, AEnabled: Boolean; AObject: TObject): Integer;function CheckItem(const Index: Integer; const AOperation: TCheckItemOperation): Boolean;property Checked[Index: Integer]: Boolean; read write;property State[Index: Integer]: TCheckBoxState; read write;property ItemCaption[Index: Integer]: String; read write;property ItemEnabled[Index: Integer]: Boolean; read write;property ItemLevel[Index: Integer]: Byte; read;property ItemObject[Index: Integer]: TObject; read write;property ItemSubItem[Index: Integer]: String; read write;property AllowGrayed: Boolean; read write;property Flat: Boolean; read write;property MinItemHeight: Integer; read write;property Offset: Integer; read write;property OnClickCheck: TNotifyEvent; read write;property BorderStyle: TBorderStyle; read write;property Color: TColor; read write;property Font: TFont; read write;property Sorted: Boolean; read write;property OnClick: TNotifyEvent; read write;property OnDblClick: TNotifyEvent; read write;property OnKeyDown: TKeyEvent; read write;property OnKeyPress: TKeyPressEvent; read write;property OnKeyUp: TKeyEvent; read write;property ShowLines: Boolean; read write;property WantTabs: Boolean; read write;property RequireRadioSelection: Boolean; read write;
end

测试例子：

[code]
var
myPage:TWizardPage;clb1, clb2: TNewCheckListBox;lbl: TLabel;i,index:Integer;procedure clbClickCheck(Sender: TObject);
beginlbl.Caption:='';for i:=1 to 3 doif clb1.Checked[i] thenlbl.Caption:=clb1.ItemCaption[i]+'  '; for i:=5 to 7 doif clb1.Checked[i] thenlbl.Caption:=lbl.Caption+clb1.ItemCaption[i]+' ';end;procedure InitializeWizard();
beginmyPage:=CreateCustomPage(wpWelcome, '标题：自定义页面', '描述：这是我的自定义页面'); lbl:=TLabel.Create(myPage);lbl.Parent:=myPage.Surface;clb1 := TNewCheckListBox.Create(mypage);
clb1.Width := mypage.SurfaceWidth;
clb1.Top:=20;
clb1.Height := ScaleY(200);
clb1.Flat := True;
clb1.Parent := mypage.Surface;
clb1.AddCheckBox('操作系统', '', 0, True, True, False, True, nil);
clb1.AddRadioButton('Windows 2000', '', 1, False, True, nil);
clb1.AddRadioButton('Windows XP', '', 1, True, True, nil);
clb1.AddRadioButton('Windows 7', '', 1, False, True, nil);
clb1.AddCheckBox('可安装组件', '', 0, True, True, False, True, nil);
clb1.AddCheckBox('组件1', '', 1, True, True, False, True, nil);clb1.AddCheckBox('组件2', '', 1, True, True, False, True, nil);clb1.AddCheckBox('组件3', '', 1, False, True, False, True, nil);clb1.OnClickCheck:=@clbClickCheck;   
end;

运行效果如下：

其中的 procedure clbClickCheck将动态地根据所选项进行自动调整。