Go homepage(回首页) Upload pictures (上传图片) Write articles (发文字帖)
The author:(作者)aaapublished in(发表于) 2014/7/19 0:09:15 Delphi为触摸屏程序添加虚拟键盘
Delphi为触摸屏程序添加虚拟键盘实例说明由于触摸屏没有键盘,只能利用屏幕操作。如果要输入数据或查找数据,需要制作一个虚拟键盘,以方便用户输入。本例介绍如何实现虚拟键盘的程序设计。本例运行效果如图1.24所示。技术要点本例用到了length()函数和Copy()函数。这两个函数是将模拟键盘的字符输入到TEdit组件中,并使光标跟随字符的输入而向后移动。length()函数的原型为:function length(S):Integer;参数说明:S 字符串或数组。功能:该函数返回在S参数指定的字符串或数组中所有字符和元素的数据。对单字节和多字节字符串,返回字符串中使用的字节数;对于Unicode字符串,返回除以2的字节数。Copy() 函数的原型为:function Copy(S:Index,Count:Integer):string;function Copy(S:Index,Count:Integer):array;参数说明:S 字符串类型。Index 开始位置,整数。Count 复制字符串数,整数。功能:返回一个字符串的字符串,从字符串S的S[Index]位置开始复制其后的Count个字符。如果Index值大于字符串S的长度,返回一个空字符串。TEdit组件的SelStart和SelLength属性可以在TEdit组件中选择任意长度的指定字符串,SelStart属性的值表示字符串的起始位,SelLength属性的值表示所选字符串的长度。当SelStart属性和SelLength属性的值相同时,光标将定位在相应字符的后面。实现过程1.新建一个标准工程,创建一个新窗体,默认窗体的Name属性为Form1。2.在窗体上放置TImage、TEdit、Tlabel和TSpeedButton等组件。3.相关组件的主要属性如表1.11所示。表1.11 主要组件的属性设置4.主要程序代码如下:procedure TForm1.JPSR(s: string);vari : integer;p : string;beginif s = 'LK' thenbegini := length(edit1.Text);i := i-1;edit1.Text := copy(edit1.Text,1,i);endelsebeginedit1.Text := edit1.Text+s;end;edit1.SelStart := length(edit1.Text);edit1.SelLength := length(edit1.Text);end;
赞