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);

var

i : integer;

p : string;

begin

if s = 'LK' then

begin

i := length(edit1.Text);

i := i-1;

edit1.Text := copy(edit1.Text,1,i);

end

else

begin

edit1.Text := edit1.Text+s;

end;

edit1.SelStart := length(edit1.Text);

edit1.SelLength := length(edit1.Text);

end;