(转)Inno Setup入门（十七）——Inno Setup类参考（3）

本文转载自：http://blog.csdn.net/yushanddddfenghailin/article/details/17250993

标签（Label）是用来显示文本的主要组件之一，也是窗口应用程序中最常用的组件之一，通过对标签的使用，将能够给用户提供更加详细的信息。

Pascal脚本中的标签由类TlLabel实现，该类定义如下：

TLabel = class(TCustomLabel)

property Alignment: TAlignment; read write;

property AutoSize: Boolean; read write;

property Caption: String; read write;

property Color: TColor; read write;

property FocusControl: TWinControl; read write;

property Font: TFont; read write;

property WordWrap: Boolean; read write;

property OnClick: TNotifyEvent; read write;

property OnDblClick: TNotifyEvent; read write;

end;

和Tbutton的层次结构模型不同，该类的层次模型如下：

下面将在上一节的基础上添加一个标签，并在单击按钮之后标签内容出现相应的变化：


[setup]

AppName=Test

AppVerName=TEST

DefaultDirName="E:\TEST"

AppVersion=1.0

[files]

Source: "F:\desktop\test\ipmsg.exe";Flags:dontcopy

[code]

var

myPage:TwizardPage;

myBtn:TButton;

myLbl:TLabel;

procedure ClickmyBtn(Sender: TObject);

begin

myLbl.Caption:=‘你点击了按钮~‘;

myLbl.Color:=clRed;

end;

procedure InitializeWizard();

begin

myPage:=CreateCustomPage(wpWelcome, ‘标题：自定义页面‘, ‘描述：这是我的自定义页面‘);

myBtn:=TButton.Create(myPage);

myBtn.Parent:=myPage.Surface;

myBtn.Caption:=‘点我~‘;

myBtn.OnClick:[email protected];

myLbl:=TLabel.Create(myPage);

myLbl.Parent:=myPage.Surface;

myLbl.Top:=myBtn.Top+50;

myLbl.Caption:=‘我是标签~‘;

end;

该代码中主要用到了Label的Caption属性，该属性决定了标签所要显示的文本。属性Color用于设置标签的背景颜色，myLbl.Color:=clRed;将设置标签的背景色为红色，有一个专门的Tcolor类处理关于颜色的属性，更多预定义颜色可查找Delphi相关文档，以下是支持的颜色：

clSystemColor = $FF000000;

clScrollBar = TColor(clSystemColor or COLOR_SCROLLBAR);

clBackground = TColor(clSystemColor or COLOR_BACKGROUND);

clActiveCaption = TColor(clSystemColor or COLOR_ACTIVECAPTION);

clInactiveCaption = TColor(clSystemColor or COLOR_INACTIVECAPTION);

clMenu = TColor(clSystemColor or COLOR_MENU);

clWindow = TColor(clSystemColor or COLOR_WINDOW);

clWindowFrame = TColor(clSystemColor or COLOR_WINDOWFRAME);

clMenuText = TColor(clSystemColor or COLOR_MENUTEXT);

clWindowText = TColor(clSystemColor or COLOR_WINDOWTEXT);

clCaptionText = TColor(clSystemColor or COLOR_CAPTIONTEXT);

clActiveBorder = TColor(clSystemColor or COLOR_ACTIVEBORDER);

clInactiveBorder = TColor(clSystemColor or COLOR_INACTIVEBORDER);

clAppWorkSpace = TColor(clSystemColor or COLOR_APPWORKSPACE);

clHighlight = TColor(clSystemColor or COLOR_HIGHLIGHT);

clHighlightText = TColor(clSystemColor or COLOR_HIGHLIGHTTEXT);

clBtnFace = TColor(clSystemColor or COLOR_BTNFACE);

clBtnShadow = TColor(clSystemColor or COLOR_BTNSHADOW);

clGrayText = TColor(clSystemColor or COLOR_GRAYTEXT);

clBtnText = TColor(clSystemColor or COLOR_BTNTEXT);

clInactiveCaptionText = TColor(clSystemColor or COLOR_INACTIVECAPTIONTEXT);

clBtnHighlight = TColor(clSystemColor or COLOR_BTNHIGHLIGHT);

cl3DDkShadow = TColor(clSystemColor or COLOR_3DDKSHADOW);

cl3DLight = TColor(clSystemColor or COLOR_3DLIGHT);

clInfoText = TColor(clSystemColor or COLOR_INFOTEXT);

clInfoBk = TColor(clSystemColor or COLOR_INFOBK);

clHotLight = TColor(clSystemColor or COLOR_HOTLIGHT);

clGradientActiveCaption = TColor(clSystemColor or COLOR_GRADIENTACTIVECAPTION);

clGradientInactiveCaption = TColor(clSystemColor or COLOR_GRADIENTINACTIVECAPTION);

clMenuHighlight = TColor(clSystemColor or COLOR_MENUHILIGHT);

clMenuBar = TColor(clSystemColor or COLOR_MENUBAR);

clBlack = TColor($000000);

clMaroon = TColor($000080);

clGreen = TColor($008000);

clOlive = TColor($008080);

clNavy = TColor($800000);

clPurple = TColor($800080);

clTeal = TColor($808000);

clGray = TColor($808080);

clSilver = TColor($C0C0C0);

clRed = TColor($0000FF);

clLime = TColor($00FF00);

clYellow = TColor($00FFFF);

clBlue = TColor($FF0000);

clFuchsia = TColor($FF00FF);

clAqua = TColor($FFFF00);

clLtGray = TColor($C0C0C0);

clDkGray = TColor($808080);

clWhite = TColor($FFFFFF);

StandardColorsCount = 16;

clMoneyGreen = TColor($C0DCC0);

clSkyBlue = TColor($F0CAA6);

clCream = TColor($F0FBFF);

clMedGray = TColor($A4A0A0);

ExtendedColorsCount = 4;

clNone = TColor($1FFFFFFF);

clDefault = TColor($20000000);

上述代码运行后效果如下：

点击前

点击后

注意：修改标签文字颜色需要使用标签的Font属性。另外，标签也可以对鼠标的点击做出反应，执行相应的函数，标签支持双击和单击鼠标的事件，但是要注意这两个事件不能并存，测试代码如下：


[code]

var

myPage:TwizardPage;

myBtn:TButton;

myLbl:TLabel;

procedure ClickmyBtn(Sender: TObject);

begin

myLbl.Caption:=‘你点击了按钮~‘;

myLbl.Color:=clRed;

end;

procedure ClickMyLbl(Sender: TObject);

begin

MsgBox(‘你单击了标签‘, MBInformation, MB_OK);

end;

procedure DbClickMyLbl(Sender: TObject);

begin

MsgBox(‘你双击了标签‘, MBInformation, MB_OK);

end;

procedure InitializeWizard();

begin

myPage:=CreateCustomPage(wpWelcome, ‘标题：自定义页面‘, ‘描述：这是我的自定义页面‘);

myBtn:=TButton.Create(myPage);

myBtn.Parent:=myPage.Surface;

myBtn.Caption:=‘点我~‘;

myBtn.OnClick:[email protected];

myLbl:=TLabel.Create(myPage);

myLbl.Parent:=myPage.Surface;

myLbl.Top:=myBtn.Top+50;

myLbl.Caption:=‘我是标签~‘;

myLbl.OnDblClick:[email protected];

//myLbl.OnClick:[email protected];

end;

上面的代码在双击标签时会弹出一个对话框，如果我们把倒数第二行的注释取消，则双击事件并不能被安装程序捕获，因为当用户点击一次鼠标左键后一旦松开鼠标，将会捕获单击事件，而不是再等待双击的到来，这点一定要注意，不过通常标签主要还是用于显示文本，而不是对某些事件做出反应，总之，标签的Caption属性是最重要的。

(转)Inno Setup入门（十七）——Inno Setup类参考（3）

时间： 2024-09-28 07:02:24

(转)Inno Setup入门（十七）——Inno Setup类参考（3）的相关文章

(转)Inno Setup入门（十六）——Inno Setup类参考（2）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17250967 这里将接着在前面的基础上介绍如何在自定义页面上添加按钮.按钮属于Tbutton类,该类继承自TbuttonControl,类定义如下: TButton = class(TButtonControl) property Cancel: Boolean; read write; property Caption: String; read write; p

(转)Inno Setup入门（二十一）——Inno Setup类参考（7）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17268435 复选框 复选框(CheckBox)用于多个并不互斥的几个选项中作出一个或者多选择,例如字体可以有粗体.斜体和下划线,这三种状态可以任意组合,像这样的选项可以采用复选框实现.Pascal脚本中对应的类是TcheckBox,其定义如下:< xmlnamespace prefix ="o" ns ="urn:schemas-micr

(转)Inno Setup入门（二十二）——Inno Setup类参考（8）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17268473 列表框 列表框(ListBox)是Windows应用程序中重要的输入手段,其中包括多个选项用户可以从其中选择一个或者多个,程序根据用户的选择做出相应的处理,列表框在外观上和存储框类似,但是行为却有很大的不同,列表框中项一般是预先给定的,而存储框则可以让用户进行输入,并且列表框中的项被选择之后也会触发事件.Pascal脚本中列表框的类由TlistBox实

(转)Inno Setup入门（二十）——Inno Setup类参考（6）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17251041 存储框 存储框也是典型的窗口可视化组件,同编辑框类似,可以输入.显示文本,但是和编辑框不同的是,编辑框只能编辑.显示单行文本,而存储框则可以对多行文本进行操作.存储框的类定义如下:< xmlnamespace prefix ="o" ns ="urn:schemas-microsoft-com:office:office&qu

(转)Inno Setup入门（十八）——Inno Setup类参考（4）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17251009 编辑框 编辑框也叫文本框,是典型的窗口可视化组件,既可以用来输入文本,也可以用来显示文本,是程序设计中最常用的组件之一,可以获取用户输入的许多信息.Pascal中的编辑框由类Tedit实现,该类的定义如下: TEdit = class(TCustomEdit) property AutoSelect: Boolean; read write; prop

(转)Inno Setup入门（十五）——Inno Setup类参考（1）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17250955 nno setup脚本能够支持许多的类,这些类使得安装程序的功能得到很大的加强,通过对这些类的使用,将会创建出许多让人惊奇的安装程序,下面开始类的学习. 创建自定义向导页 自定义向导页需要在InitializeWizard事件函数中创建,通过使用CreateCustomPage函数创建一个空的页面,或者使用CreateInput...Page和Crea

(转)Inno Setup入门（十九）——Inno Setup类参考（5）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17251019 单选按钮 单选按钮在安装中也很常见,例如同一个程序可以选择安装不同的性质的功能,例如选择32位或者64位等,两者是排他性的,因此可以通过单选按钮(RadioButton)来实现,在同一个容器中放置的单选按钮是自动带有排他性的,Pascal脚本中单选按钮的定义如下: TRadioButton = class(TButtonControl) propert

Inno Setup入门（十一）——完成安装后执行某些程序

Inno Setup入门(十一)——完成安装后执行某些程序 2011-02-16 16:24:23|  分类: Inno Setup |  标签:inno  setup   |举报 |字号 订阅 下载LOFTER客户端 有些时候我们的程序虽然能够很好的完成安装,但是程序的配置工作可能需要其他的一些程序来辅助完成,如果不执行这些程序,主程序就不能很好的完成工作,甚至不能完成工作,一个很明显的例子是,目前许多程序是通过NET技术开发的,这就要求计算机上必须安装有.net Framework,否则主程

(转)Inno Setup入门（十）——操作注册表

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17250871 有些程序需要随系统启动,或者需要建立某些文件关联等问题,这些都是通过在安装程序中对注册表进行操作的结果.Inno Setup中通过[registry]段实现对注册表的操作. 本段说明: 参数列表: 参数 说明 Root 根键.必须是下列中的一个: HKCR (HKEY_CLASSES_ROOT) HKCU (HKEY_CURRENT_USER) HKL