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

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

编辑框

编辑框也叫文本框，是典型的窗口可视化组件，既可以用来输入文本，也可以用来显示文本，是程序设计中最常用的组件之一，可以获取用户输入的许多信息。Pascal中的编辑框由类Tedit实现，该类的定义如下：

TEdit = class(TCustomEdit)

property AutoSelect: Boolean; read write;

property AutoSize: Boolean; read write;

property BorderStyle: TBorderStyle; read write;

property CharCase: TEditCharCase; read write;

property Color: TColor; read write;

property Font: TFont; read write;

property HideSelection: Boolean; read write;

property MaxLength: Integer; read write;

property PasswordChar: Char; read write;

property ReadOnly: Boolean; read write;

property Text: String; read write;

property OnChange: TNotifyEvent; 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;

end;

该类的层次模型如下：

下面的代码将演示创建编辑框，以及编辑框的Text属性：


[setup]

AppName=Test

AppVerName=TEST

DefaultDirName="E:\TEST"

AppVersion=1.0

[files]

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

[code]

var

myPage:TwizardPage;

myBtn:TButton;

ed1,ed2,ed3:TEdit;

procedure ClickmyBtn(Sender: TObject);

begin

ed3.Text:=ed1.Text+‘ ‘+ed2.Text;

end;

procedure InitializeWizard();

begin

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

myBtn:=TButton.Create(myPage);

myBtn.Parent:=myPage.Surface;

myBtn.Caption:=‘点我~‘;

myBtn.OnClick:[email protected];

ed1:=TEdit.Create(myPage);

ed1.Parent:=myPage.Surface;

ed1.Top:=myBtn.Top+30;

ed1.Width:=myBtn.Width;

ed2:=TEdit.Create(myPage);

ed2.Parent:=myPage.Surface;

ed2.Top:=ed1.Top+30;

ed2.Width:=myBtn.Width;

ed3:=TEdit.Create(myPage);

ed3.Parent:=myPage.Surface;

ed3.Top:=ed2.Top+30;

ed3.Width:=myBtn.Width;

end;

属性Text用于设置或获取文本框中的内容，注意不管是设置还是获取，参数一定必须是String的类型，运行效果如下：

如果是想实现两个数的代数运算，而不是字符串的拼接，则按钮的OnClick过程应该做如下修改：


procedure ClickmyBtn(Sender: TObject);

var

a,b:Extended;

begin

a:=StrToFloat(ed1.Text);

b:=StrToFloat(ed2.Text);

ed3.Text:=FloatToStr(a+b);

end;

StrToFloat和FloatToStr分别实现字符串转实数，实数转字符串。在第一、第二个文本框中输入数值后，点击按钮将第三个文本框中的内容设置为两数的和。下面再说说其他的属性。修改代码段如下：


[code]

var

myPage:TwizardPage;

myBtn:TButton;

ed1,ed2,ed3:TEdit;

a,b,c:String;

procedure ClickmyBtn(Sender: TObject);

begin

a:=ed1.Text;

b:=ed2.Text;

c:=a+b;

ed3.Text:=c;

end;

procedure InitializeWizard();

begin

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

myBtn:=TButton.Create(myPage);

myBtn.Parent:=myPage.Surface;

myBtn.Caption:=‘点我~‘;

myBtn.OnClick:[email protected];

ed1:=TEdit.Create(myPage);

ed1.Parent:=myPage.Surface;

ed1.Top:=myBtn.Top+30;

ed1.Width:=myBtn.Width;

ed1.CharCase:=ecUpperCase;{大写}

ed1.ShowHint:=True;

ed1.Hint:=‘字母将会变为大写‘;

ed2:=TEdit.Create(myPage);

ed2.Parent:=myPage.Surface;

ed2.Top:=ed1.Top+30;

ed2.Width:=myBtn.Width;

ed2.PasswordChar:=‘#‘;{密码样式}

ed3:=TEdit.Create(myPage);

ed3.Parent:=myPage.Surface;

ed3.Top:=ed2.Top+30;

ed3.Width:=myBtn.Width*2;

ed3.ReadOnly:=true;{只读}

end;

上面介绍了四个属性：CharCase将设置文本显示的格式，可以有三个值：(ecNormal, ecUpperCase, ecLowerCase，分别为正常方式，大写方式，小写方式；PasswordChar属性将输入的文本替换为制定的样式；ReadOnly属性将使得该文本框不接受用户输入；Hint和ShowHint属性是用户的鼠标停留在该文本框上时，给出相应的提示文本，注意只有在ShowHint设置为True的时候才会显示。

另外，编辑框也能对一些事件做出相应，例如单击、双击，文本内容发生变化等，实现起来和按钮的差不错，这里就不再啰嗦了。最后需要介绍的是三个处理按键的属性： OnKeyDown、OnKeyPress和OnKeyUp

这三个属性是当用户光标停留在该文本框中时，当用户按下了键盘上的某个键时，会调用该属性指定的过程，测试代码如下：


[code]

var

myPage:TwizardPage;

ed:TEdit;

procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if (key=67) and (Shift=[ssAlt]) then

Msgbox(‘你按下了Alt+c‘,MBInformation,MB_OK);

end;

procedure InitializeWizard();

begin

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

ed:=TEdit.Create(myPage);

ed.Parent:=myPage.Surface;

ed.OnKeyDown:[email protected];

end;

在编辑框中输入时，用户按下Alt+C组合时，将会做出响应，弹出一个消息框，这样可以对我们感兴趣的按键组合做出相应的动作，例如我们想屏蔽粘贴这项功能，则修改代码如下：


procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

begin

if (key=86) and (Shift=[ssCtrl]) then

Msgbox(‘粘贴无效，请手动输入‘,MBInformation,MB_OK);

ed.text:=‘‘;

end;

不过这里要说明的是，这还不能屏蔽右键粘贴，只是屏蔽了Ctrl+V的方式。另外两个按键属性和这里介绍的KeyDown差不多，可对照测试一下。

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

时间： 2024-10-15 09:50:39

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

(转)Inno Setup入门（八）——有选择性的安装文件

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17250827 这主要使用[Components]段实现,一个演示的代码如下: [setup] ;全局设置,本段必须 AppName=Test AppVerName=TEST DefaultDirName="E:\TEST" AppVersion=1.0 Compression=lzma2/max ShowLanguageDialog=yes [Compon

[WebGL入门]十八，利用索引缓存来绘图

注:文章译自http://wgld.org/,原作者杉本雅広(doxas),文章中如果有我的额外说明,我会加上［lufy:］,另外,鄙人webgl研究还不够深入,一些专业词语,如果翻译有误,欢迎大家指正. 本次的demo的运行结果 对应复杂的模型 上次,通过操作模型坐标变换矩阵,实现了多个模型的移动,旋转和放大缩小.但是,渲染的依然是简单的三角形,是个构造及其简单的模型.但是实际中,用WebGL来绘制一个简单的三角形的机会是很少见的.至少是个四角多边形吧,通常会是更复杂的模型.伴随着模型的复杂化

爪哇国新游记之十八----泛型栈类

import java.lang.reflect.Array; /** * 泛型栈 * * @param <T> */ public class Stack<T>{ private Class<T> type;// 栈元素所属的类 private int size;// 栈深度 private T[] arr;// 用数组存储 private int top;// 栈顶元素的下标 public Stack(Class<T> type,int size){ t

Inno Setup入门（八）&mdash;&mdash;有选择性的安装文件

这主要使用[Components]段实现,一个演示的代码如下: [setup] ;全局设置,本段必须 AppName=Test AppVerName=TEST DefaultDirName="E:\TEST" AppVersion=1.0 Compression=lzma2/max ShowLanguageDialog=yes [Components] Name: main; Description:"主程序(必选)";Types:full compact cust

SpringBoot入门十八,自定义注解的简单实现

项目基本配置参考文章SpringBoot入门一,使用myEclipse新建一个SpringBoot项目,使用myEclipse新建一个SpringBoot项目即可,此示例springboot升级为2.2.1版本. 1. pom.xml添加aop支持 <!-- 引入aop切面支持 --> <dependency> <groupId>org.springframework.boot</groupId> <artifactId>spring-boot-

Android入门(十八)服务

原文链接:http://www.orlion.ga/674/ 一.定义一个服务 创建一个项目ServiceDemo,然后在这个项目中新增一个名为 MyService的类,并让它继承自 Service,完成后的代码如下所示: public class MyService extends Service {     @Override     public IBinder onBind(Intent intent) {         return null;     } } onBind()方法是

(转)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入门（十）——操作注册表

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

(转)Inno Setup入门（十二）——Pascal脚本（1）

本文转载自:http://blog.csdn.net/yushanddddfenghailin/article/details/17250917 事件函数(1) Inno Setup支持以下函数和过程. function InitializeSetup(): Boolean; 该函数在安装程序初始化时调用,返回False 将中断安装,True则继续安装,测试代码如下: function InitializeSetup(): Boolean; begin Result := MsgBox('安装程