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