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

http://379910987.blog.163.com/blog/static/3352379720126693742406/

今天说说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);

begin

lbl.Caption:='';

for i:=1 to 3 do

if clb1.Checked[i] then

lbl.Caption:=clb1.ItemCaption[i]+' ';

for i:=5 to 7 do

if clb1.Checked[i] then

lbl.Caption:=lbl.Caption+clb1.ItemCaption[i]+' ';

end;

procedure InitializeWizard();

begin

myPage:=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将动态地根据所选项进行自动调整。

巴特西

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

最新文章

热门文章