本文转载自：http://blog.csdn.net/yushanddddfenghailin/article/details/17268435
复选框
复选框（CheckBox）用于多个并不互斥的几个选项中作出一个或者多选择，例如字体可以有粗体、斜体和下划线，这三种状态可以任意组合，像这样的选项可以采用复选框实现。Pascal脚本中对应的类是TcheckBox，其定义如下：< xmlnamespace prefix ="o" ns ="urn:schemas-microsoft-com:office:office" />
TCheckBox = class(TCustomCheckBox)
property Alignment: TAlignment; read write;
property AllowGrayed: Boolean; read write;
property Caption: String; read write;
property Checked: Boolean; read write;
property Color: TColor; read write;
property Font: TFont; read write;
< xmlnamespace prefix ="st1" ns ="urn:schemas-microsoft-com:office:smarttags" />property State: TCheckBoxState; read write;
property OnClick: TNotifyEvent; read write;
end;
其层次模型如下：
该类比RadioBox多继承了一个TcustomCheckBox，这样就有了更多的功能。下面的代码将演示复选框的使用：
|
[setup] AppName=Test AppVerName=TEST DefaultDirName="E:\TEST" AppVersion=1.0 [files] Source:zzz.iss;Flags:dontcopy [code] var myPage:TWizardPage; lbl:TLabel; chk1,chk2,chk3:TCheckBox; procedure ClickCHK1(Sender:TObject); begin if chk1.Checked then lbl.Font.Style:=lbl.Font.Style+[fsBold] else lbl.Font.Style:=lbl.Font.Style-[fsBold]; end; procedure ClickCHK2(Sender:TObject); begin if chk2.Checked then lbl.Font.Style:=lbl.Font.Style+[fsItalic] else lbl.Font.Style:=lbl.Font.Style-[fsItalic]; end; procedure ClickCHK3(Sender:TObject); begin if chk3.Checked then lbl.Font.Style:=lbl.Font.Style+[fsUnderline] else lbl.Font.Style:=lbl.Font.Style-[fsUnderline]; end; procedure InitializeWizard(); begin myPage:=CreateCustomPage(wpWelcome, ‘标题：自定义页面‘, ‘描述：这是我的自定义页面‘); lbl:=TLabel.Create(myPage); lbl.Parent:=myPage.Surface; lbl.Caption:=‘请选择复选框，并注意文字的变化‘; chk1:=TCheckBox.Create(myPage); chk1.Parent:=myPage.Surface; chk1.Caption:=‘粗体‘; chk1.top:=lbl.Top+20; chk1.OnClick:[email protected]; chk2:=TCheckBox.Create(myPage); chk2.Parent:=myPage.Surface; chk2.Caption:=‘斜体‘; chk2.top:=chk1.Top+20; chk2.OnClick:[email protected]; chk3:=TCheckBox.Create(myPage); chk3.Parent:=myPage.Surface; chk3.Caption:=‘下划线‘; chk3.top:=chk2.Top+20; chk3.OnClick:[email protected]; end; |
程序运行效果如下：
另外复选框还有一个重要的属性就是State，该属性指定了复选框的外观，可以有三个值，分别是cbUnchecked、cbChecked和cbGrayed，即未选择、选择和未定，可以使用如下代码设定：
|
chk1.State:=cbUnchecked; chk2.State:=cbChecked; chk3.State:=cbGrayed; |
效果如下：
(转)Inno Setup入门（二十一）——Inno Setup类参考（7）